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10 STARTER PROGRAMS FROM FAMILY COMPUTING . 

INTRaDUCTION 

SIARTING TO PROGRAM 

YouVe probably heard that computers are dumb. In a sense they 
are^they don't know anything unti a human comes along and te Is 
them what to do. Te ing a computerwhattodo is caled programming. 
It's not hard to learn to program. One way is by learning BASIC, one 
of the many languages used by humans, to talk to computers. The 
programs in this book are all written in BASIC. 

When you program, some keys and parts of your computer 
keyboard are especially important. Be sure you can locate the quotation 
mark and the semicolon, and that you know how to space both 
forward and backward. 

The chart below tells you how to make your particular computer 
do certain things when you program. It a so lists some common 
commands. Commands are the words you key in when you want to 
tell your computer to do something. It also lists what your computer 
will tell you to let you know you've made a mistake in your typing. 
The most important thing to keep in mind when you're talking to your 
computer is that you must be precise. The computer wil try to do 
exactly what you tell it, so you must be careful to tell it exactly what 
you want it to do, 


THE ABCs OF PROGRAMMING IN BASIC 

This chart tells you what to look for, what to key in, or what something on your screen means. 


THE SIGN OR DIRECTION 


APPLE 


TIMEX 


Tl 


ATARI 




TRS-80 


Indication of next symbol 


flashing 
cursor 


cursor 


flashing 
cursor . 


cursor 


flashing 
cursor 


flashing 
cursor 


To correct 


backspace 


delete • 


backspace 


delete/ 
backspace 


insert/ 
delete 


backspace 


To enter a command 


RETURN 


ENTER 


ENTER 


RETURN 


RETURN 


ENTER 


Mistake in command 


SYNTAX 
ERROR 


SYNTAX 
ERROR 


INCORREa 
STATEMENT 


ERROR 


• SYNTAX 
ERROR 


SYNTAX 
ERROR 


To clear screen 


HOME 


CLS 


CALL 
CLEAR 


PRINT 
CHR$ (125) 


PRINT 
CHR$ (147) 


CLS 


To indicate new program 


NEW 


NEW 


NEW 


NEW . 


NEW 


NEW 


to print something . 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


PRINT 


To see all the commands in a program 


LIST 


LIST 


LIST 


LIST 


LIST 


LIST 


To make the program do what 
you've told it to 


RUN 


RUN 


RUN 


RUN 


RUN 


RUN 


To indicate end of program 


END 


STOP 


END 


END 


END 


END ■ 


To stop program 


CONTROL/ 
RESET 


BREAK 


FUNCTION/ 
4 


BREAK 


RUN/STOP 


BREAK 
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PLUS AND APPLE lie 




Bonus Program #1 CARTOON ROBOT 


Riddle: What's sweet, but square? high tech, yet down to 


earth; ar 


id brilliant, with the 


I.Q. of a doughnut? 


Give up? 




■ -' 


The answer is: The -fabulous KISSING ROBOT. 


You'll key in a program using 


FOR and NEXT to make a 


cartoon. 


The command FOR and 


NEXT are used for counting. 


14 


HOME 






16 


PRINT 


" ( ) **«**«*****( ) " 




18 


PRINT 


"** *#" 




20 


PRINT 


"** <0) (0) **" 


I' 


•22 


PRINT 


"** *«" 


- 


24 


PRINT 


"** V **" 




26 


PRINT 


"** **" 




28 


PRINT 


"** **" 




30 


FOR T 


= 1 TO 75; NEXT T 




32 


HOME 






34 


PRINT 


" ( ) *********** ( ) " 




36 


PRINT 


"♦* **" 




38 


PRINT 


"** (0) <-) «*" 




40 


PRINT 


"** **" 




42 


PRINT 


"** V **" 


•' '. • 


44 


PRINT 


"*♦ ♦♦" 




46 


PRINT 


"** **" 




48 


FOR T 


= 1 TO 75; NEXT T 




50 


HOME 






52 


PRINT 


" ( ) *********** ( ) " 




54 


PRINT 


"** jf:*" 




56 


PRINT 


"** (0) (0) **" 




58 


PRINT 


"** .**" . 




60 


PRINT 


"** V **" 




62 


PRINT 


"** **" 




64 


PRINT 


"** **" 




66 


FOR T 


= 1 TO 75: NEXT T 




68 


GOTO 14 




Thi s prog 


ram works like a real 


cartoon. The robot is 


printed on the screen, and erased, three times. Each time | 


it 


is printed, there are small 


changes made, which give the 


ill 


.us ion 


of movement. Line 68 


GOTO 14 starts the entire 


process over again. The FOR/NEXT commands are used as time | 


del 


ays between pictured. You 


can change the speed of the 


cartoon by changing the 75, in 


the FOR/NEXT lines, to a 


different 


number. Decreasing 


the number will make the 


car 


toon f 


aster. 


V ^ 
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Bonus Program #2 FAMILY DECISION MAKER 

How would you like to use your home computer for solving 
problems like, "Who will use the computer -first, Jimmy or 
Bobby?"... or how about, "Should we use the t.v. to watch a 
movie, or play with the computer?". The FAMILY DECISION 
MAKER can help you solve these problems, and more. It will 
make the decision for you, by picking a random choice. All 
you have to do is to type in the options. 



"FAMILY DECISION MAKER" 
« 1 TO 1500: NEXT T 

"TYPE IN the: OPTIONS" 
"AND THE COMPUTER WILL DECIDE" 
"WHAT IS OPTION #1 "jOl* 
"WHAT IS OPTION #2 " i 02^ 

"I'M THINKING IT OVER. . " 

== 1 TO 3000s NEXT T 
(RND<l)*2)+i 

"MY CHOICE ISs " 
« 1 THEN PRINT 01* 
- 2 THEN PRINT 02* 



In this, program the computer makes its choice in line 110. 
Lines 90 and 100 are where the computer is, "thinking it 
over". You probably noticed that the computer isn't really 
"thinking it over". It's actually counting up to 3000, then 
executing line 110. The choice is printed on the screen in 
lines 130-150. 

The VARIABLES ares 

T^time delay 

C=choice . 

01*-option #1 

02*«=option #2 



10 


HOME 


20 


PRINT 


30 


FOR T 


40 


HOME 


50 


PRINT 


60 


PRINT 


70 


INPUT 


80 


INPUT 


90 


PRINT 


10(Z 


1 FOR T 


110 


1 C=INT 


12e 


1 HOME 


130 


1 PftlNT 


140 


1 IF C 


150 


IF C 



10 STARTER PROGRAMS FROMfAMILY COMPUTING 



APPLE 

Bonus Program #3 REACTION TIMER 

Here is a program to test your reaction time. When the 
computer says "GO!", you must hold down CONTROL and press 
the RESET key as quickly as you can. Compare your score 
with the chart in the program. Good luck! 



10 HOME 

20 PRINT "TEST YOUR REACTION TIME" 

30 PRINT "AGAINST THE COMPUTER." 

40 PRINT "WHEN THE COMPUTER SAYS 'GO!'" 

50 PRINT "HOLD CONTROL & PRESS RESET KEY" 

60 PRINT "YOUR SCORE IS THE HIGHEST NUMBER YOU SEE" ' 

70 PRINTsPRINT "01~10==LIGHTNIN ' 10-20=QUICK ! " 

80 PRINT "20-30= AVERAGE 30-50=NAPPlNG" 

90 PR I NT SPRINT: PR I NT "Pf^ESS RETURN" 

100 PRINT "WHEN YOU ARE READY" 

110 INPUT A* 

120 HOME:PRINT "ON YOUR MARK" 

130 FOR T = 1 TO 1000SNEXT T:PRINT "GET SET!" 

140 FOR T = 1 TO INT(RND(1)*5000)8NEXT T 

150 HOME: PRINT "GO!" 

160 FOR T = 1 TO 50SPRINT T:NEXT T 

170 PRINT "SOMEONE WAKE THIS PERSON UP ! " 

The VARIABLE, o-f the FOR/NEXT statement in line 140, equals 
a RANDOM INTEGER between one and -five thousand. This causes 
the time delay td be di-f-ferent each time the program is RUN. 
When you press the RESET key the computer may say, "Break in 
160". This is normal ■for the program.. Your score is the 
highest number you see. Type RUN and press RETURN to play 
again. 
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Bonus Program #4 M.P.G. RECORDER 

If you're like me,, you never take the trouble to figure 
out your car 's miles per gallon (M. P.6. ) . Even having a 
calculator handy has never helped, though there are only 
three basic numbers to calculate. This is one more instance 
in which wanting to use my computer motivates me to do the 
fairly simple task I've managed to ignore. My mechanic 
tells me that I should check my M.P.B. after every five 
fiil-ups. That way, if my M.P.G. starts dropping, I can 
take my car in for a checkup. . .before it's too late. 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 



HOME 
PRINT 
FOR T 
HOME 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINt 



"MPG CALCULATOR" 
« 1 TO .1500: NEXT T 

"THIS IS A PROGRAM TO FIGURE OUT" 
"THE MILES PER GALLON YOUR CAR GETS" 
"HOW MANY MILES HAVE YOU DRIVEN" 
"DURING THE PAST FIVE FILL-UPS" 
M 

HOW MANY GALLONS OF GAS DID YOU USE' 



PRINT "IN THE PAST FIVE FILL-UPS" 

INPUT 6 

MPG=M/6 

PRINT "YOU HAVE BEEN GETTING "MPG 

PRINT "MILES PER GALLON" 



Notice that we used 6 as the VARIABLE for gas, M as the 
VARIABLE for miles, and MPG as the VARIABLE for miles per 
gallon. In line 130, MF'6=M/G means miles per gallon equals 
miles divided by gallons. 
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Bonus Program #5 COUPON CALCULATOR . 

Computers are pretty good at solving problems and 
presenting the results in a manner which is easy to read. 
This program can be used to display the amount of money you 
will save with your shopping coupons. 



10 HOME 

20 PRINT "COUPON CALCULATOR" 

30 PR I NT: PR INT "TO FIND OUT HOW MUCH YOU'LL SAVE" 

40 PRINT "WITH YOUR SHOPPING COUPONS" 

50 PRINT "ANSWER THE FOLLOWING QUESTIONS" 

60 PRINT "THEN PRESS THE RETURN KEY" 

70 PR I NT SPRINT "HOW MANY COUPONS DO YOU HAVE" 

80 INPUT C 

90 PRINT: PRINT "ENTER THE AMOUNT OF A COUPON" 

100 PRINT "DON'T USE A DOLLAR SIGN" 

110 PRINT "DO USE A DECIMAL POINT": PRINT 

120 FOR E =^ 1 TO C: PRINT "ENTER VALUE OF COUPON#"E 

130 INPUT A 

140 T=T+A 

150 NEXT E 

160 PRINT:PRINT "^"J" WILL BE SAVED" 

The VARIABLES in this program are: 

C=»number oi coupons 

E=coupon# 

A=value of coupons 

T=total value of coupons 

Line 140 adds up the total, each time a value is entered 
into the computer. Line 160 prints the total value to be 
saved. 
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Bonus Program #6 SPORTS FORECASTER 



The SPORTS FORECASTER can be a handy program if you enjoy 
sports. This program will take a team's current record and 
project, based on winning percentage, what the team's record 
will be at the end o-f the season. 



10 HOME 

20 PRINT "SPORTS FORECASTER" 

30 FOR Z = 1 TO 1500:NEXT Z:PRINT 

40 PRINT "THIS PROGRAM WILL FORECAST A TEAM'S" 

50 PRINT "FINAL WIN AND LOSS RECORD" 

60 PRINT "BASED ON ITS CURRENT RECORD" 

70 PRINT: PRINT "ANSWER EACH QUESTION" 

80 PRINT "THEN PRESS RETURN" 

90 PRINT: PRINT "HOW MANY GAMES DOES THE TEAM PLAY" 

1.00 INPUT T 

110 PRINT: PRINT"HOW MANY WINS DO THEY HAVE NOW" 

120 INPUT W 

130 PRINT "HOW MANY LOSSES DO THEY HAVE NOW" 

140 INPUT L. 

150 P=W/(W+L):Y=T*P:D=T~Y 

160 PRINT: PRINT "END OF THE SEASON PROJECTION:" 

170 PRINT: PRINT "WINS=" INT <Y> " LOSSES^" INT (D) +1 

The VARIABLES are: 

Z=time delay variable 

T=total games in season 

W=games won 

L=games lost 

P=percentage o-f games won 

Y=end of year games projected won 

D=end o-f year games projected lost 

The forecast is completed in line 150 when the winning 
percentage (P) is established by dividing the number of 
completed games (W-+-L) into the total games won so far (W) 



The total wins for the year is estimated 
amount of games in the season (T) by the 
(P) . The year end losses are determined 
end of year projected games won (Y) from 
the season (T) . 



by multiplying the 
winning percentage 
by subtracting the 
the total games in 
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Bonus Program #7 SHOWER MONITOR 



Getting into the shower, day after day, and -finding cold 
water can be a drag. I'm sure that large families know what 
I'm talking about. Bonus Program #7 has been designed to 
whip, morning bathroom confusion. It's called the SHOWER 
MONITOR. You type in the names and the computer picks the 
shower order. 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 



HOME 

PRINT "SHOWER MONITOR" 
FOR T= 1 TO 2000: NEXT T:HOME 
PRINT "THIS PROGRAM IS DESIGNED TO HELP" 
PRINT "FAMILIES DECIDE, IN A FAIR WAY" 
PRINT "THE ORDER IN WHICH THE SHOWER IS USED" 
PRINT "IN THE MORNING." 

PRINT: PRINT "EACH PERSON'S NAME IS TYPED INTO THE" 
PRINT "COMPUTER. THEN THE COMPUTER, RANDOMLY," 
"CHOOSES THE ORDER (AS IF OUT OF A HAT)." 
"TYPE EACH ANSWER, THEN PRESS RETURN." 
"HOW MANY PEOPLE IN YOUR FAMILY" 



PRINT 
PRINT 
PRINT: 
INPUT 



PRINT 

P 
PRINT: PRINT "TYPE 
PRINT "THEN PRESS 
FOR H = 1 TO P 
INPUT N*(H) 
NEXT H 

HOME: PRINT "THIS IS 
PRINT: FOR R = 1 TO 
X=INT(RND(1)*P)+1 
IF N*(X)=""THEN 210 
PRINT N*(X) 
N*(X)="" 
NEXT R 
GOTO 260 



IN THE NAMES, 
RETURN." 



ONE AT A TIME. 



THE SHOWER ORDER TODAY: 



The VARIABLES Sire: 

P=number of people in family 

H=array parking lot# 

X=random number 

N*<X)=name of person X in array 

R=counting variable 

You are probably wondering what an ARRAY is. An ARRAY is a 
computer parking lot. In an ARRAY you don't park cars. 
Rather, you park words and numbers. In this program we 
parked the name of each person in an ARRAY location (such as 
N*(l)="Mom" ,N*(2)="Larry" ,N*(3)="Rick" ,etc) . The names are 
loaded into the ARFi:AY in lines 160-180. The RANDOM shower 
order is determined in lines 200-250. Can you figure out 
why a name isn't picked more than once? 
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Bonus Program #8 NUMBER 6AMES FOR TWO 

Computers are great for playing games. They can be 
programmed to make games, both unpredictable and exciting. 
Here is a super game -for two people. The computer "pulls a 
number out of its hat", and the players take turns trying to 
guess the number. The player with the most correct guesses, 
after seven rounds, is the. champ. Switch sides after seven 
rounds. You will be surprised at the strategies involved. 

10 HOME 

20 PRINT "THIS IS A NUMBER GAME FOR TWO PEOPLE" 

30 PRINT "THE COMPUTER PICKS A NUMBER BETWEEN 1 AND 500." 

40 PRINT "THE PLAYERS TAKE TURNS GUESSING THE NUMBER" 

50 PRINT "UNTIL SOMEONE GUESSES THE NUMBER" 

60 PRINT "THE PLAYER GUESSING THE MOST NUMBERS," 

70 PRINT "AFTER 7 ROUNDS, IS THE WINNER" 

80 PRINT : INPUT "WHAT IS PLAYER #1 'S NAME? " ; PI* 

90 PRINT s INPUT "WHAT IS PLAYER #2'S NAME? " ; P2f 

100 R=R+l!N = INT <RND(1) * 500) +1 

110 IF R>1 THEN PR I NT "THE SCORE IS "P1*"="P1" "P2*"="P2 

120 FOR T = 1 TO 2500s NEXT T 

130 IF R > 7 THEN 260 ; 

140 FOR T = 1 TO 1000! NEXT T 

,150 HOME ! PRINT "ROUND "R", "P1$"'STURN" 

160 PRINT s INPUT "WHAT IS YOUR GUESS? ";G1 

170 IF ei < N THEN PRINT "TOO LOW, "Pl^sGOTO 200 

180 IF, Gl > N THEN PRINT "TOO HI6H"sG0 TO 200 

190 PRINT "YOU GOT IT "Plt-sPl - PI + 1 s GOTO 100 

200 FOR T = 1 TO 1000! NEXT T 

210 HOME! PRINT "ROUND "R" , "P2*"'S TURN" 

220 PRINT! INPUT "WHAT IS YOUR GUESS? " ; G2 

230 IF G2 < JM THEN PRINT "TOO LOW"! GOTO 140 

240 IF G2 > N THEN PRINT "TOO HIGH" s GOTO 140 

250 PRINT "YOU GOT IT "P2*!P2 = P2 h-IsGOTO 100 

260 HOME! FOR T = 1 TO 1000! NEXT T 

270 IF PI > P2 THEN PRINT PI*" CREAMED "P2*" "PI" TO "P2!END 

280 PRINT P2*" WASTED "PI*" "P2" TO "PI 

The VARIABLES are! 

Pl*=player #1 

P2*-p layer #2 

Pl=player #1 score 

P2™p layer #2 score . / 

Gl=p layer #1 guess 

Q2=p layer #2 guess 

R=round# 

T==time delay variable 

N='secret number 

The secret number (N) is picked in line 100. To alter the 

limits of the secret number, you can change the 500 to a 

larger or smaller number. Try 10000, for instance. In 

several places you may notice symbols like thiss > or 

this! < . The symbol > means "greater than" and < 

means "less than". Can you make this game work with four 

players? 

10 
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Bonus Program #9 PRACTICAL JOKER 

Are you ready for some laughs? If so, Bonus Program #9 
is the one for you. It's called the PRACTICAL JOKE PROGRAM. 
Here's how it works: 

You type the program into your computer while the victim 
isn't around. RUN the program. The computer will ask you 
questions about the victim. You answer al 1 the questions 
until the computer says, "PRESS ANY KEY TO START THE JOKE". 
Press a key and the joke is ready for the victim. l^lhen the 
victim comes back, the computer will seem to know all about 
him/her. Just say that you're hooked up to the MASTER 
COMPUTER, and it knows EVERYTHING!!! 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

400 



HOME 
PRINT 
FOR T 
HOME 
INPUT 
INPUT 
IF MF*= 
IF MF*= 



"PRACTICAL JOKE PROGRAM" 
1 TO 1000: NEXT T 



"WHAT IS THE VICTIM'S NAME " ; N* 

"IS THE VICTIM MALE OR FEMALE ";MF* 

"MALE" OR MF*= "M" THEN 6*= "HE":P*= "HIS" 
"FEMALE" OR MF*= "F" THEN G*= "SHE":P*= "HER" 



PRINT "WHAT CITY IS "G*" FROM?": INPUT C* 
PRINT "HOW OLD IS "6*" NOW?": INPUT A 
PRINT "WHAT IS "Pt" FAVORITE HOBBY": INPUT H* 
PRINT "WHAT IS "P*" NICKNAME" : INPUT NN* 
PRINT "PRESS ANY KEY TO START THE JOKE." 
GET S*:IF S*="" THEN140 
HOME 

PRINT "PRESS A KEY AND I WILL TALK TO YOU" 
GET S*:IFS*=""THEN170 

PRINT "HELLO, LET ME TRY TO GUESS YOUR NAME." 
PRINT "I'M THINKING..." 
GOSUB 400 

PRINT "YOU LOOK LIKE SOME TYPE OF "N*:GOSUB400 
PRINT "BUT I HOPE YOU WON'T MIND IF I CALL YOU" 
PRINT NNt:6OSUB400 

PRINT "THE TOUCH OF YOUR FINGERS" : PRINT 
PRINT "LEADS ME TO BELIEVE YOU ARE AT LEAST": PRINT 
PRINT A" YEARS OLD" : QOSUB400 

PRINT "AND YOU SMELL LIKE A PERSON FROM": PRINT 
PRINT C*:GOSUB400 

PRINT "THE CENTRAL COMPUTER TELLS ME YOU LIKE:": PR I NT 
PRINT H*:GOSUB400 

PRINT "NOW, IT'S YOUR TURN TO ASK ME A QUESTION" 
INPUT "TYPE YOUR QUESTION, THEN PRESS RETURN "jQ* 
GOSUB400 

PRINT "SORRY, "NN*" THAT'S TOO PERSONAL!" 
PRINT "YOUR ACCESS TO THE MASTER COMPUTER HAS" 
PRINT "BEEN TERMINATED UNTIL 1999": END 
FOR T = 1 TO 4000: NEXTT: HOME: RETURN 



continued on next page. 
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PRACTICAL JOKE con 't... 

In the PRACTICAL JOKE program you s^rG introduced to some 
new commands. Two s^r^ called GOSUB and RETURN (not the key). 
GOSUB 400 means, "goto the subroutine at 400". A SUBROUTINE 
is like a program, within a program. RETURN means "return 
to the main program". A SUBROUTINE always starts with GOSUB 
and ends with RETURN. This SUBROUTINE, line 400, causes a 
time delay and clears the screen. In lines 140 and 170 is 
another, new command, called GET. GET S* tells the computer 
to wait -for a key to be pressed. In line 140, if no key is 
pressed i the computer waits at line 140. When a key is 
pressed, the program proceeds on to line 150- 

VARIABLES 3irez 

T==time delay 

N*^-victim's name 

MF*-male or female 

G*«he or she 

Ct— city 

A-age 

Ht=hobby i 

NN$=^nickname 

P:$:=his or her 

Q-^=squestion 

S*=get variable 
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Bonus Program #10 MATH SHARPENER 

This program is called the MATH SHARPENER. I 've been 
saving this program -for the whiz kids. You must be one, or 
you wouldn't be reading this. The MATH SHARPENER has been 
designed to quiz both the beginner, and the advanced, on 
basic math skills. Don't use a scratch pad and I assure 
you, you'll get_a_work out. You wi 1 1 receive instructions 
when you RUN the program. 

10 REM***MATH SHARPENER*** 

20 S=0:HOME 

30 PR I NT "THIS IS A PROGRAM TO SHARPEN YOUR MATH" 

40 PRINT 

50 PRINT "PICK*: 1 ) EASY 2) HARD, THEN RETURN" 

60 INPUT L 

70 PR I NT "THE SYMBOLS ARE:" 

80 PRINT"+ ADD - SUBTRACT" 

90 PRINT"* MULTIPLY / DIVIDE" : PRINT 

100 PRINT"EXAMPLES:" 

110 PRiNT"2+3=5 8-4=4" 

120 PRINT"2*4=8 9/3=3": PRINT 

130 PRINT"PICK THE NUMBER OF THE FUNCTION" 

140 PR I NT "YOU WANT TO PRACTICE: ": PRINT 

150 PRINT" 1) ADD" 

160 PR I NT "2) SUBTRACT" 

170 PRINT"3) MULTIPLY" 

180 PRINT"4) DIVIDE" 

190 INPUT D 

200 HOME: PR I NT "TYPE THE NUMBER OF QUESTIONS" 

210 INPUT "YOU WANT, THEN PRESS RETURN ";Q 

220 FOR T=l TO Q 

230 PRINT"ANSWER THE PROBLEM, THEN PRESS RETURN" : PRINT 

240 IF L=l THEN A=INT (RND ( 1 ) *10) +1 : B=INT (RND ( 1 ) *10) +1 

250 IF L=2 THEN A=INT (RND ( 1 ) *200) +1 : B=INT <RND ( 1 ) *200) +1 

260 IF D=2 AND A<B THEN 240 

270 IF D=4 AND A<B THEN 240 

280 IF D=4 AND A/B <> INT(A/B)THEN240 

290 IF A=B OR B=l THEN 240 

300 IF D=l THEN PRINT A"+"B"»" ; : INPUTC 

310 IF D=2 THEN PRINT A"-"B"=" •: INPUTC 

320 IF D=3 AND L=l THEN PRINT A"*"B" = " ;.: INPUT C 

330 IF D=3 AND L=2 THEN PRINT INT (A/5) "*" INT <B/5) "=";: INPUTC 

340 IF D=4 THEN PRINT A"/"B"=" ;: INPUTC 

continued on next page... 
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350 PRINT 

360 IF D==l AND C=A+B THEN S^S+l : PRINT "ALRIGHT !": GOTO490 

370 IP D=2 AND C=A-B THEN S=S+1: PRINT"RIGHT ON ! " : GOTO490 

380 IF D=3 AND L=l AND C=A*B THEN 8=3+1 :Z«1 

390 IF Z=l THEN PRINT "CORRECT !": Z=0: GdTO490 

400 IF D=:3 AND L=2 AND C=INT (A/5) *INT (B/5) THEN 8«8+l:Z»2 

410 IF Z=2 THEN PRINT "GREAT !": Z=:0:6OTO490 

420 IF D=4 AND C=A/B THEN 8=8+1 : PRINT" YOWSAH !": GOTO490 

430 PR I NT "YOU GOOFED. THE ANSWER WA8:"; 

440 IF D=l THEN PRINT A+B 

450 IF\D=2 THEN PRINT A-B 

460 IF D=3 AND L^l THEN PRINT A*B 

470 IF D=:=3 AND L=2 THEN PRINT INT (A/5) *INT (B/5) 

.480 IF D=4 THEN PRINT A/B 

490 FOR W=:1TO800:NEXT W:HOME:NEXT T 

500 PR I NT "YOUR SCORE IS: "S" OUT. OF "Q" RIGHT!" 

510 PR I NT "PRESS ANY KEY TO CONTINUE" 

520 GET A:*:: IF A*= ""THEN520 

530 GOTO 10 ^ 

The VARIABLES s^rez 

L=ea^y/hard 

D=-function to practice 

Q=# of questions 

T=question loop 

A~random number 1 

B=random number 2 

C«choice (your answer) 

W^delay 

S=score 

A$-get variable 

Z=correct multiplication flag 

If you have problems getting this program to work properly, 
double check lines 240-500- These sirG the lines where most 
of the mathematical processing takes place. . In this 
section, if D=l, then you s^r-e adding; if D=2, you are 
subtracting; D=3, means mul tiplying; and D=4 signifies 
division- If L=l , then the quizzes are easy. If L=2 , then 
the quizzes s^rB hard. Should you have the desire to make 
the program more difficult, you can increase the RANDOM 
NUMBERS, in lines 240-250. 
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10 STARTER PROGRAMS FROM FAMILY COMPUTING 



Atari 400/800 



Bonus Program #1 CARTOON ROBOT 



Riddles What's sweet, but square; high tech, yet down to 
earth; and brilliant, with the I.Q. o-f a doughnut? 

Give up? 

The answer iss The Fabulous KISSING ROBOT. 

You'll key in a program using FOR and NEXT to make a 

cartoon. The command FOR and NEXT are used -for counting. 



14 


PRINT 


CHR*<12 


5) 




16 


PRINT 


" ( ) ♦*♦**♦♦***# ( ) " 


18 


PRINT 


"*♦ 






*#" 


20 


PRINT 


"** 


(0) 




(0) **" 


22 


PRINT 


"♦♦ 






*♦" 


24 


PRINT 


"*♦ 




V 


♦*" 


26 


PRINT 


"♦♦ 






*♦" 


28 


PRINT 


"♦♦ 







**" 


30 


FOR T= 


= 1 TO 50 


:NEXT T 


32 


PRINT 


CHR*<125) 




34 


PRINT 


" ( ) ***»#*****♦( ) " 


36 


PRINT 


"♦* 






♦*" 


38 


PRINT 


"*« 


(0) 




(-) **" 


40 


PRINT 


"** 






#*" 


42 


PRINT 


"*♦ 




V 


**" 


44 


PRINT 


"*# 






*»" 


46 


PRINT 


"*» 







#*" 


48 


FOR T 


= 1 


TO 


50: 


NEXT T 


50 


PRINT 


CHR*(125> 




52 


PRINT 


" < ) ***#*♦***** ( ) " 


54 


PRINT 


"♦♦ 






**" 


56 


PRINT 


"** 


(0) 




(0) **" 


58 


PRINT 


" #* 






**" 


60 


PRINT 


"*# 




V 


** V 


62 


PRINT 


"** 






**" 


64 


PRINT 


"#* 







**" 


66 


FOR T 


= 1 


TO 


50: 


NEXT T 



68 GOTO 14 

This program works like a real cartoon. The robot is 
printed on the screen, and erased, three times. Each time 
it is printed, there are small changes made, which give the 
illusion of movement. Line 68 GOTO 14 starts the. entire 
process over again. The FOR/NEXT commands are used as time 
delays between pictures. You can change the speed of the 
cartoon by changing the "50", in the FOR/NEXT lines, to a 
different number. Decreasing the number will make the 
cartoon faster. 
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10 STARTER PROGRAMS FROM FAMILY COMPUTING 



ATARI 

Bonus Program #2 FAMILY DECISION MAKER 

How would you like to use your home computer for solving 
problems like, "Who will use the computer first, Jimmy or 
Bobby?". . .or how about, "Should we use the t. v. to watch a 
movie, or play with the computer?". The FAMILY DECISION 
MAKER can help you solve these problems, and more. It will 
make the decision for you, by picking a random choice. All 
you have to do is to type in the options. 



10 DIM Ol*<50),O2t.(50) SPRINT CHR*(125) 

20 PRINT "FAMILY DECISION MAKER" 

30 FOR T «: 1 TO 1500s NEXT T 

40 PRINT CHR-ife(125) 

50 PRINT "TYPE IN THE OPTIONS" 

60 PRINT "AND THE COMPUTER WILL DECIDE" 

70' PRINT "WHAT IS OPTION #1 " 3 s INPUT 01* 

80 PRINT "WHAT IS OPTION #2" us INPUT 02* 

90 PRINT "I'M THINKING IT OVER......" 

100 FOR T == 1 TO 3000s NEXT T 

110 C«INT<RND<1)*2)-+.1 

120 PRINT CHR*(125) 

130 PRINT "MY CHOICE ISs " 

140 IF C = 1. THEN PRINT 01* 

150 IF C ==: 2 THEN PRINT 02* 

The computer makes its choice in line 110. Lines 90 and 100 
are where the computer is, "thinking it over". You probably 
noticed that the computer isn't really "thinking it over". 
It's actually counting up to 3000, then executing line 110. 
The choice is printed on the screen in lines 130-150. DIM 
Ol*(50) ,O2*(50) sets a maKimum of fifty letters, in each 
choice. 



The VARIABLES 
T»time delay 
C-choice 
01*— option #1 
O2*5=:option #2 



ares 
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ATARI 

Bonus Program #3 REACTION TIMER 

Here is a program to test your, reaction time. When the 
computer says "GO!", you must press the BREAK key ds quickly 
as you can. Compare your score with the chart in the 
program. Good luck* 



10 DIM A* (1) SPRINT CHR*<125) 

20 PRINT "TEST YOUR REACTION TIME" 

30 PRINT "AGAINST THE COMPUTER." 

40 PRINT "WHEN THE COMPUTER SAYS 'GO!'" 

50 PRINT "PRESS THE BREAK KEY" 

60 PRINT "YOUR SCORE IS THE HIGHEST NUMBER YOU SEE" 

70 PRINT! PRINT "01-10==LI6HTNIN ' 10-20=QUICK ! " 

80 PRINT "20-30=AVERAGE 30-50«NAPPING" 

90 PR I NT: PR I NT SPRINT "PRESS RETURN" 

100 PRINT "WHEN YOU ARE READY" 

110 INPUT A* 

120 PRINT CH,R*( 125) SPRINT "ON YOUR MARK" 

130 FOR T =1 TO 1000SNEXT TsPRINT "GET SET!" 

140 FORT = 1 TO INT<RND<1)*5000) sNEXT T 

150 PRINT CHR*( 125) SPRINT "GO!" 

160 FOR T = 1 TO 505 PRINT TsNEXT T 

170 PRINT "SOMEONE WAKE THIS PERSON UP!" 

The VARIABLE, o-f the FOR/NEXT statement in line 140, equals 
a RANDOM INTEGER between one and five thousand. This causes 
the time delay to be di-f-ferent each time the program is RUN. 
When you press the BREAK key the computer will say, "STOPPED 
AT 160". This is normal for the program. Your score is the 
highest number you see. Type RUN and press RETURN to play 
again. 
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ATARI 

Bonus Program #4 M«P«6n RECORDER 

If you're like me, you never take the trouble to figure 
out your car's miles pBr gallon (MaP,6.)- Even having a 
calculator handy has never helped, though there are only 
three basic numbers to calculate. This is one more instance 
in which wanting to use my computer motivates me to do the 
fairly simple task I've managed to ignore- My mechanic 
tells me that I should check my MoPnG» after every five 
fill-ups« That way, if my MnP»G« starts dropping, I can 
take my car in for a checkup* *« before it's too late. 



10 PRINT CHRt(125) 

20 PRINT "MPG CALCULATOR" 

30 FOR T == 1 TO 1500s NEXT T 

40 PRINT CHRt(125) 

50 PRINT "THIS IS A PROGRAM TO FIGURE OUT" 

60 PRINT "THE MILES PER GALLON YOUR CAR GETS" 

70 PRINT "HOW MANY MILES HAVE YOU DRIVEN" 

80 PRINT "DURING THE PAST FIVE FILL-UPS" 

90 INPUT M 

100 PRINT "HOW MANY GALLONS OF GAS DID YOU USE" 

110 PRINT "IN THE PAST FIVE FILL-UPS" 

120 INPUT G 

130 MPG«=M/6 

140 PRINT "YOU HAVE BEEN GETTING " ; MPG 

150 PRINT "MILES PER GALLON" 

Notice that we used G as the VARIABLE for gas, M as the 
VARIABLE for miles, and MPG as the VARIABLE for miles per 
gallon. In line 130, MPG==M/G means miles per gallon equals 
miles divided by gallons. 
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Bonus Program #5 COUPON CALCULATOR 

Computers are pretty good at solving problems and 
presenting the results in a manner which is easy to read. 
This program can be used to display the amount of money you 
will save with your shopping coupons. 



10 PRINT CHR*(125) 

20 PRINT "COUPON CALCULATOR" 

30 PRINT: PRINT "TO FIND OUT HOW MUCH YOU'LL SAVE" 

40 PRINT "WITH YOUR SHOPPING COUPONS" 

50 PRINT "ANSWER THE FOLLOWING QUESTIONS" 

60 PRINT "THEN PRESS THE RETURN KEY" 

70 PRINT: PRINT "HOW MANY COUPONS DO YOU HAVE" 

80 INPUT C 

90 PRINT: PRINT "ENTER THE AMOUNT OF A COUPON" 

100 PRINT "DON'T USE A DOLLAR SIGN" 

110 PRINT "DO USE A DECIMAL POINT": PRINT 

120 FOR E = 1 TO C: PRINT "ENTER VALUE OF COUPON #";E 

130 INPUT A 

140 T=T+A 

150 NEXT E 

160 PRINT: PRINT "*";T;" WILL BE SAVED" 

The VARIABLES in this program are: 

C-number o-f coupons 

E=coupon# 

A=value of coupons 

T=total value of coupons 

Line 140 adds up the total, each time a value is entered 
into the computer. Line 160 prints the total value to be 
saved. 
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ATARI 



Bonus Program #6 SPORTS FORCASTER 



The SPORTS FORECASTER can be a handy program if you enjoy 
sports. This program will take a team's current record and 
project, based on winning percentage, what the team's record 
will be at the end o-f the season. 



10 PRINT CHR$:<125) 

20 PRINT "SPORTS FORECASTER" 

30 FOR Z ^ 1 TO 1500: NEXT Zs PRINT 

40 PRINT "THIS PROGRAM WILL FORECAST A TEAM'S" 

50 PRINT "FINAL WIN AND LOSS RECORD" 

60 PRINT "BASED ON ITS CURRENT RECORD" 

70 PRINT: PRINT "ANSWER EACH QUESTION" 

80 PRINT "THEN PRESS RETURN" 

90 PRINT: PRINT "HOW MANY GAMES DOES THE TEAM PLAY" 

100 INPUT T 

110 PR I NT: PR I NT "HOW MANY WINS DO THEY HAVE NOW" 

120 INPUT W 

130 PRINT "HOW MANY LOSSES DO THEY HAVE NOW" 

140 'INPUT L 

150 P=W/<W+L):Y=T*P:D=T-Y 

160 PRINT:PRINT "END OF THE SEASON PROJECTION:" 

170 PRINT: PRINT "WINS=" ; INT (Y) ; " LOSSES=" ; INT (D) +1 

The VARIABLES are: 

Z=time delay variable 

T=total games in season 

W=games won 

L«games lost 

Psspercentage o-f games won 

Y=end of year games projected won 

D=end of year games projected lost 

The forecast is completed in line 150 when the winning 
percentage <P) is established by dividing the number of 
completed games (W+L> into the total games won so far (W) . 
The total wins for the year is estimated by multiplying the 
amount of games in the season <T) by the winning percentage 
(P) . The year end losses are determined by subtracting the 
end of year * projected games won (Y) from the total games in 
the season (T) • 
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ATARI 










Bon 


us Program #7 ELECTION RETURNS 


t 






\ 

Stage a 


mock primary, in which there are 


-four candidates. 


Twenty -five precincts report, one at a time 


Running totals 


are 


printed as each reports. When all the 


returns are in. 


the 


computer displays the winner. This is 


a great way to 


get 


a -fee 


L for computerized election return 


s. 




10 ] 


DIM Nl*(15) ,N2*(15) ,N3*(15) ,N4*(15] 


1 






20 1 


PRINT CHR*(125) 








30 1 


=^RINT 


•ELECTION RETURNS" 








40 1 


-OR T= 


I TO 1500s NEXT T , 








50 PRINT ' 


'INPUT THE NAME OF CANDIDATE 


#1";: 


INPUT 


Nl* 


60 i 


=»RINT ' 


'INPUT THE NAME OF CANDIDATE 


#2";s 


INPUT 


N2* 


70 PRINT ' 


'INPUT THE NAME OF CANDIDATE 


#3";s 


INPUT 


N3* 


80 1 


="RINT 


'INPUT THE NAME OF CANDIDATE 


#4";: 


INPUT 


N4* 


90 PRINT CHR*<125) 








100 


PRINT 


"THE POLLS JUST CLOSED" 








110 


PRINT 


"AND THE RESULTS ARE COM INS 


IN" 






120 


FOR P= 


=1 TO 25 








130 


N1 = INT <RND ( 1 ) *999) s N2=INT (RND < 1 ) *999) 






140 


N3=INT (RND ( 1 ) *999) : N4=sINT (RND ( 1 ) *999) 






150 


FOR T= 


=1 TO 2000! NEXT T 








160 


PRINT 


CHR*(125) 








170 


PRINT 


"PRECINCT#";P;" RESULTS:" 


A 






180. 


PRINT 


Nl5"-";N1*!T1=N1+Tl 








190 


PRINT 


N2; "-" ; N2*5 T2=N2+T2 








200 


PRINT 


N3; "-" 5 N3*! T3=N3+T3 








210 


PRINT 


N4; "-" ; N4*: T4=N4+T4 








220 


FOR T= 


= 1 TO 1500s NEXT T 








230 


PRINT 










240 


PRINT 


"CURRENT TOTALS s " 








250 


PRINT 


T1;"-";N1* 








260 


PRINT 


T2;"-";N2* 








270 


PRINT 


T3;"-"sN3* 








280 


PRINT 


T4;"-";N4* 








290 


FOR T= 


= 1 TO 2000s NEXT T 








300 


NEXT P 






, • ^ 


310 


PRINT 


"ALL RETURNS IN, AND" 








320 


IF Ti; 


»T2 AND T1>T3 AND T1>T4 THEN 


PRINT 


Nl* 




330 


IF T2: 


>T1 AND T2>T3 AND T2>T4 THEN 


PRINT 


N2* 


»- 


340 


IF T3>T1 AND T3>T2 AND T3>T4 THEN 


PRINT 


N3* 




350 


IF T4>T1 AND T4>T2 AND T4>T3 THEN 


PRINT 


N4* 




360 


PRINT 


"IS THE WINNER! i !" 








continued 


on next page. . . 
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ATARI 

Bonus Program #7 continued. 
The VARIABLES are: 

Nl*«candidate #1 name 
N2*=candidate #2 name 
N3*=candidate #3 name 
N4*»candidate #4 name 
Nl=can- #1 local votes 



N2=can. 


#2 


local 


votes 


N3=can. 


#3 


local 


votes 


N4«can. 


#4 


local 


votes 


Tl=can. 


#1 


total 


votes 


T2=can. 


#2 


total 


votes 


T3=can. 


#3 


total 


votes 


T4=can« 


#4 


total 


votes 


T=time 


delay 




P^preci 


net 


loop 





The DIM statements, in line 10, set the maximum number of 
letters in each candidate's name to fifteen. Changing line 
120 will allow you to have more precincts. The 999's, in 
lines 130 and 140, can be modified to produce a higher 
number of votes in each precinct. If the program runs too 
slow for you, just change the "time delays in lines 150, 220, 
and 290. Try 1000, eor maybe even 500, if you are a quick 
reader. 






10 STARTER PROGRAMS FROM FAMILY COMPUTING 



ATARI 

Bonus Program #8 NUMBER GAMES FOR TWO 

Computers are great for playing games. They can be 
programmed to make games, both unpredictable and exciting. 
Here is a super game -for two people. The computer "pulls a 
number out o+ its hat", and the players take turns trying to 
guess the number. The player with the most correct guesses, 
after seven rounds, is the champ. Switch sides after seven 
rounds. You will be surprised at the strategies involved. 

10 DIM Pl*(15) ,P2*(15):'PRINT CHR*(i25) 

PRINT "THIS IS A NUMBER GAME FOR TWO PEOPLE" 

"THE COMPUTER PICKS A NUMBER BETWEEN 1 AND 500." 

"THE PLAYERS TAKE TURNS GUESSING THE NUMBER" 

"UNTIL SOMEONE GUESSES THE NUMBER" 

"THE PLAYER GUESSING THE MOST NUMBERS," 

"AFTER 7 ROUNDS, IS THE WINNER" 

"WHAT IS PLAYER #1'S NAME" ; s INPUT 

"WHAT IS PLAYER #2 ' S NAME"; s INPUT 

* 500) +1 

SCORE IS ";P1*;"» 



20 
30 
40 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



60 

70 

80 

90 

100 R=R+l!N = INT (RND(l) 

110 IF R>1 THEN PRINT"THE 

";P2*;"=";P2 

120 FOR T = 1 TO 2500: NEXT T 

130 IF R > 7 THEN 260 

140 FOR T = 1 TO 1000 

CHR*(125) : 

"WHAT IS 

< N THEN 



PI* 



;P1 



150 


PRINT 


160 


PRINT 


170 


IF Gl 


180 


IF 61 


190 


PRINT 


200 


FOR T 


210 


PRINT 


220 


PRINT 


230 


IF 62 


240 


IF 62 


250 


PRINT 


260 


PRINT 


270 


IF PI 


";P2sEND 


280 


PRINT 



NEXT T 
: PRINT "ROUND 
YOUR GUESS 
PRINT "TOO 



";R! 



";P1*! 



"5 : INPUT 61 

LOW ";Pl*s60T0 200 



S TURN" 



> N THEN PRINT "TOO HI6H"s60 TO 200 
"YOU GOT IT ";Pl.$:sPl = PI + 1 : GOTO 100 
= 1 TO 1000! NEXT T 

CHR* ( 1 25 ) : PR I NT " ROUND " ; R « " , " ; P2* ; " ' S TURN " 
PRINT "WHAT IS YOUR GUESS" ; s INPUT 62 
< N THEN PRINT "TOO LOW" s GOTO 140 

> N THEN PRINT "TOO HI6H"s60T0 140 
"YOU GOT IT "5P2*".P2 = P2 +lsG0T0 100 
CHR*<125) !F0R T = 1 TO 1000s NEXT T 

CREAMED "5P2*;" 



P2 THEN PRINT PI*; 

';P1*; " 



iPl! 



TO 



P2*5 " WASTED 



;P2;" TO ";P1 



The VARIABLES ares 

Pl*=p layer #1 

P2*=p layer #2 

Pl=p layer #1 score 

P2=player #2 score 

Gl==player #1 guess 

G2=p layer #2 guess 

R=round# 

T=time delay variable 

N=secret number 

The secret number (N) is picked in- line 100. To alter the 
limits of the secret number, you can change the 500 to a 
larger or smaller number. Try 10000, for instance. In 
several places you may notice symbols like thiss > or 
this: . The symbol > means "greater than" and < 
means "less than". Can you make this game work with four 
players? 
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Bonus Program #9 PRACTICAL JOKER 
Are you ready for some laughs? 



#9 



is the one 
Here's how 



•for you. 
it works; 



If so, Bonus Program 
.It's cAlled the PRACTICAL JOKE PROGRAM. 



You type the program into your computer while the victim 
isn't around. RUN the program. The computer will ask you 
questions about the victim. You answer all the questions 
until the computer says, "PRESS RETURN TO START THE JOKE". 
Press a key and the joke is ready for the victim. When the 
victim comes back, the computer will seem to know all about 
him/her. Just say that you're ^looked up to the MASTER 
COMPUTER, and it knows EVERYTHING!!! 

10 DIM N*(25) ,MF*<10) ,C*(25) ,H*<25) ,NN*<25) ,S*( 

1) ,Q*<25) ,6*<10) ,P*(10) 

20 PRINT CHR*<125) 

30 PRINT "PRACTICAL JOKE PROGRAM" 

40 FOR T=i TO 1000: NEXT T: PRINT CHR*(12S) 

50 PRINT "WHAT IS THE VICTIM'S NAME" ;: INPUT N* 

60 PRINT "IS THE VICTIM MALE OR FEMALE"; : INPUT MF* 

70 IF MF*= "MALE" OR MF*= "M" THEN 0*= "HE":P*= "HIS" 

80 IF MF*= "FEMALE" OR MF*= "F" THEN G*= "SHE":P*= "HER" 

90 PRINT "WHAT CITY IS ";G*5" FROM?": INPUT C* 

100 PRINT "HOW OLD IS ";G*s" NOW?": INPUT A 

110 PftINT "WHAT IS ";P*;" FAVORITE HOBBY": INPUT H* 

120 PRINT "WHAT IS ";P*;" NICKNAME" : INPUT NN* 

130 PRINT "PRESS RETURN TO START THE JOKE. " 

140 INPUT S* 

150 PRINT CHR*(125) 

160 PRINT "PRESS RETURN AND I WILL TALK TO YOU" 

170 INPUT S* 

180 PRINT "HELLO, LET ME TRY TO GUESS YOUR NAME." 

190 PRINT "I'M THINKING..." 

200 GOSUB 400 

210 PRINT "YOU LOOK LIKE SOME TYPE OF " ; N*: GOSUB400 

220 PRINT "BUT I HOPE YOU WON'T MIND IF I CALL YOU" 

230 PRINT NN*:GOSUB400 

240 PRINT "THE TOUCH OF YOUR FINGERS" : PRINT 

250 PRINT "LEADS ME TO BELIEVE YOU ARE AT LEAST": PRINT 

260 PRINT A;" YEARS OLD" : GOSUB400 

270 PRINT "AND YOU SMELL LIKE A PERSON FROM":PRINT 

280 PRINT C*:GOSUB400 

290 PRINT "THE CENTRAL COMPUTER TELLS ME YOU LIKE:": PRINT 

300 PRINT H*:GOSUB400 

310 PRINT "NOW, IT'S YOUR TURN TO ASK ME A QUESTION" 

320 PRINT "TYPE YOUR QUESTION, THEN PRESS RETURN"; : INPUT Q* 

330 GOSUB400 

340 PRINT "SORRY, ";NN*;" THAT'S TOO PERSONAL!" 

350 PRINT "YOUR ACCESS TO THE MASTER COMPUTER HAS" 

360 PRINT "BEEN TERMINATED UNTIL 1999": END 

400 FOR T = 1 TO 4000: NEXTT: PRINT CHR$< 125) : RETURN 

continued on next page.... 
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In the PRACTICAL JOKE program you are introduced to some 
new commands. Two 3Lre called 60SUB and RETURN (not the key). 
BOSUB 400 means, "goto the subroutine at 400". A SUBROUTINE 
is like a program, within a program. RETURN means "return 
to the main program". A SUBROUTINE always starts with GOSUB 
and ends with RETURN. This SUBROUTINE, line 400, causes a 
time delay and clears the screen. 

VARIABLES arei 

T=time delay 

N*=victim's name 

MF*=male or -female 

G*-he or she 

C*=city 

A»age 

Ht—hobby 

NN*=5snickname 

Pt— his or her 

Qt— question 
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Bonus Program #10 M^TH SHARPENER 

This program is called the MATH SHARPENER. I've been 
saving this program for the whiz kids. You must be one, or 
you wouldn't be reading this. The MATH SHARPENER has been 
designed to quiz both the beginner, «^nd the advanced, on 
basic math skills. Don't use a scratch pad and I assure 
you, you'll get a work out. You wi 1 1 receive i nstructions 
when you RUN the program. 

10 DIM A*(l) 
20 PRINT. CHR*( 125) 

30 PR I NT "THIS IS A PROGRAM TO SHARPEN YOUR MATH" 
40 PRINT 

50 PRINT "CHOOSE: 1) EASY 2)HARD,THEN PRESS RETURN" 
60 INPUT L 

70 PRINT "THE SYMBOLS ARE:" 
80. PRINT "+ ADD - SUBTRACT" 
90 PRINT "* MULTIPLY / DIVIDE" : PRINT 
100 PRINT "EXAMPLES:" 
110 PRINT "2+3=5 8-4=;4" 
120 PRINT "4*2=8 9/3=3" 

130 PRINT "PICK THE NUMBER OF THE FUNCTION" 
140 PRINT "YOU WANT TO PRACTICE: ": PRINT 
. 150 PRINT "DADD"- 
160 PRINT "2)SUBTRACT" 
170 PRINT "3) MULTIPLY" 
180 PRINT "4) DIVIDE" 
190 INPUT D 

200 PRINT CHR* (125): PRINT "TYPE THE NUMBER OF QUESTIONS" 
210 PRINT "YOU WANT, THEN PRESS RETURN" ;: INPUT Q ' 
220 FOR T=l TO Q 

230 PRINT "ANSWER THE PROBLEM, THEN PRESS RETURN" : PRINT 
240 IF L=l THEN A=INT (RND ( 1 ) *10) +1 : B=INT (RND ( 1 ) *10) +1 
250 IF L=2 THEN .A=INT(RND(1)*200)+1:B=INT (RND ( 1 ) *200)+l 
260 IF D=2 AND A<B THEN 240 
270 IF D=4 AND A<B THEN 240 
280 IF D=4 AND A/B <> INT ( A/B) THEN240 
290 IF A=B OR B=l THEN 240 

300 IF D=l THEN PRINT A; "+" ; B; "=" ; : INPUTC 
310 IF D=2 THEN PRINT A; "-"; B; "=";: INPUTC 
320 IF D=3 AND L=l THEn' PRINT' A; "*" ; B; " = " ; : INPUT C 
330 IF D=3 AND L=2 THEN PRINT 
INT(A/5) ; "*";INT(B/5) ;"=";: INPUTC 
340 IF D=4 THEN PRINT A; "/"; B; "=";: INPUTC 

continued. on next page... 



26 



10 STARTER PROGRAMS FROM FAMILY COMPUTING 



ATARI 

350 PRINT 

360 IF D=l AND C=A+B THEN S=S-«- 1 s PR I NT "ALRIGHT I ": 6OTO490 

370 IF D=2 AND C=A-B THEN S=S+1: PRINT "RIGHT ON ! " : GOTO490 

380 IF D=3 AND L==l AND C«A-JeB THEN S«S+l5Z = l 

390 IF Z=l THEN PRINT "CORRECT !" s Z=0sGOTG490 

400 IF D=3 AND L=2 AND C=INT (A/5) *INT (B/5) THEN S=S+1 : Z«2 

410 IF Z=2 THEN PRINT "GREAT !": Z=0: GOTO500 

420 IF D=4 AND C=A/B THEN S=S+1 : PRINT"YOWSAH ! " : GOTO490 

430 PRINT"YOU GOOFED. THE ANSWER WAS:"; 

440 IF D=l THEN PRINT A+B 

450 IF D«2 THEN PRINT A-B 

460 IF D=3 AND L=l THEN PRINT A*B 

470 IF D=3 AND L=2 THEN PRINT INT (A/5) *INT (B/5) 

480 IF D=:4 THEN PRINT A/B 

490 FOR W«=1TO80O:NEXT W: PRINT CHR*( 125) s NEXT T 

500 PRINT"YOUR SCORE IS:"5S5" OUT OF "sQ;" RIGHT!" 

510 PRINT"PRESS RETURN TO CONTINUE" 

520 INPUT A* 

530 S=0sGOTO 20 

The VARIABLES s^rez 

L=easy/hard 

D=-function to practice 

Q=# of questions 

T=quest ion loop 

A=random number 1 

B^random number 2 

C=choice (your answer) 

W=delay 

S=score 

A^=continue variable 

Z=correct multiplication -flag 

If you have problems getting this program to work properly, 
double check lines 240-500. These are the lines where most 
of the mathematical processing takes place. In this 
section, if D=l, then you s^re adding 5 if D=2, you are 
subtracting; D=3, means multiplying; and D=4 signifies 
division. If L=l, then the quizzes are easy. If L=2, then 
the quizzes are hard. Should you have the desire to make 
the program more difficult, you can increase the RANDOM 
NUMBERS, in lines 240-250. 
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10 STARTER PROGRAMS FROM FAMILY COMPUTING 



COMMODORE 64 AND VI C-20 

Bonus Program #1 CARTOON ROBOT 

Riddle: What's seet , but square; high tech, yet down to 
earth; and brilliant, with the I.Q. o-f a doughnut? 

Give up? 

The answer is: The -fabulous KISSIN6 ROBOT 

You'll key in a program using FOR and NEXT to make a 
cartoon. The commands FOR and NEXT are used -for counting. 



14 


PRINT 


CHR*(147) 




16 


PRINT 


" ( )#*****♦**** ( ) " 


18 


PRINT 


"** 




**" 


20 


PRINT 


"** (0) 




<0) **" 


22 


PRINT 


"*♦ 




*#" 


24 


PRINT 


"** 


V 


**" 


26 


PRINT 


"** 




**" 


28 


PRINT 


"#* . 


_w — 


**" 


30 


FOR T 


= 1 TO 


75: 


NEXT T 


32 


PRINT 


CHR*(147) 




34 


PRINT 


" ( ) *********** ( ) " 


36 


PRINT 


"** 




**" 


38 


PRINT 


"** (0) 




(-) **" 


40 


PRINT 


"** 




**" 


42 


PRINT 


"** 


V 


**" 


44 


PRINT 


"** 




**" 


46 


PRINT 


"** 





*4t-" 


48 


FOR T 


= 1 TO 


75! 


NEXT T 


50 


PRINT 


CHR*-(147) 




52 


PRINT 


" ( ) *********** ( ) " 


54 


PRINT 


"** 




**" 


56 


PRINT 


"** (0) 




(0) **" 


58 


PRINT 


"** 




**" 


60 


PRINT 


"** 


V 


**" 


62 


PRINT 


"** 




**" 


64 


PRINT 


"** 





**" 


66 


FOR T 


= 1 TO 


75: 


NEXT T 


68 


GOTO 14 







This program works like a real cartoon. The robot is ' 
printed on the screen, and erased, three times. Each time 
it is printed, there are small changes made, which give the 
illusion o-f movement. Line 68 GOTO 14 starts the entire 
process over again. The FOR/NEXT commands are used as time 
delays between pictures. You can change the speed of the 
cartoon by changing the 75, in the FOR/NEXT lines, to a 
different number. Decreasing the number will make the 
cartoon faster. 
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COMMODORE 

Bonus Program #2 FAMILY DECISION MAKER » 

How would you like to use your home computer foh solving 
problems like, "Who will use the computer -first, Jimmy or 
Bobby?"«/.or how about, '"Should we use the t«v« to watch a. 
movie, or play with the computer?'*. The FAMILY DECISION 
MAKER can help you solve these problems, and more. It will 
make the decision for you, by picking a random choice. All 
you have to do is to type in the options. 



10 PRINT CHR*(147) 

20 PRINT "FAMILY DECISION MAKER" 

30 FOR T - 1 TO 15008 NEXT T 

40 PRINT CHR-^(147) 

50 PRINT "TYPE IN THE OPTIONS" 

60 PRINT "AND THE COMPUTER WILL DECIDE" 

70 INPUT "WHAT IS OPTION #l"5 01t. 

80 INPUT "WHAT IS OPTION #2" 5 02$ 

90 PRINT "I'M THINKING IT OVER......" 

100 FOR T « 1 TO 3000SNEXT T 

110 C«INT(RND(1)#2)+1 

120 PRINT CHR.|:(147) 

130 PRINT "MY CHOICE ISs " 

140 IF C- 1 THEN PRINT 01* 

150 IF = 2 THEN PRINT 02:$: 

In this program the computer makes its choice in line il0. 
Lines 90 and 100 are where the computer is, "thinking it 
over". You probably noticed that the computer isn't really 
"thinking it over". It's actually counting up to 3000, then 
executing line 110. The choice is printed on the screen in 
lines 130-150. 

The VARIABLES ares 
T-time delay 
C-choice 
dl:$'-option #1 
02-*==option #2 
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10 STARTER PROGRAMS FROM FAMILY COMPUTING 



COMMODORE 

Bonus Program #3 REACTION TIMER - 

Here is a program to test your reaction time. When the 

computer says "60!", you must press the RUN/STOP key as 

quickly as you can,. Compare your, score with the chart in 
the program. Good luck! 

10 PRINT CHR*(147> 

20 PRINT "TEST YOUR REACTION TIME" 

30 PRINT "AGAINST THE COMPUTER. " 

40 PRINT "WHEN THE COMPUTER SAYS 'GO!'" 

50 PRINT "PRESS THE RUN /STOP KEY" 

60 PRINT "YOUR SCORE IS THE HIGHEST NUMBER YOU SEE" 

70 PRINT: PRINT "01-10=LIGHTNIN ' 10-20=QUICK ! " 

80 PRINT "20-30= AVERAGE 30-50=NAPPIN6" 

90 PR I NT: PR I NT: PR I NT "PRESS RETURN" 

100 PRINT "WHEN YOU ARE READY" 

110 INPUT A* 

120 PRINT CHR*< 147): PRINT "ON YOUR MARK" 

130 FOR T =1 TO 1000: NEXT T:PRINT "GET SET!" 

140 FOR T = 1 TO INT(RND(1)*5000):NEXT T 

150 PRINT CHR* ( 147) : PRINT "GO!" 

160 FOR T = 1 TO 50:PRINT T:NEXT T 

170 PRINT "SOMEONE WAKE THIS PERSON UP!" 

The VARIABLE, o-f the FOR/NEXT statement in line 140, equals 
a RANDOM INTEGER between one and five thousand. This causes 
the time delay to be different each time the program is RUN. 
When you press the RUN/STOP key the computer will say, 
"Break in 160". This is normal for the program. Your score 
is the highest number you see. Type RUN and press RETURN to 
play again. 



30 







10 STARTER PROGRAMS FROM FAMILY COMPUTING 


COMMODORE 




Bon 


us Program #4 M.P.6. RECORDER 




I f you 


're like me, you never take the trouble to -figure 


out 


your 


car's miles per gallon (M.P.6.). Even having a 


cal 


culator handy has never helped, though there Sire only 


three basic numbers to calculate. This is one more instance 


in 


whi ch 


wanting to use my computer motivates me to do the 


.•fairly si 


mple task I've managed to ignore. My mechanic. 


tells me 


that I should check my M.P,6. after every five 


f i 1 1-ups. 


That way, i-f my M.P.G. starts dropping, I can 


tak 


e my c 


ar in for a checkup. .. before it's too late. 


10 


PRINT 


CHR*(147) , 


20 


PRINT 


"MPB CALCULATOR" 


30 


FOR T 


== 1 TO 15005 NEXT T 


40 


PRINT 


CHR#(147) • . 


50 


PRINT 


"THIS IS A PR06RAM TO >~IGURE OUT" 


m 


PRINT 


"THE MILES PER GALLON YOUR CAR GETS" 


70 


PRINT 


"HOW MANY MILES HAVE YOU DRIVEN" 


80 


PRINT 


"DURING THE PAST FIVE FILL-UPS" 


90 


INPUT 


M 


• .100 


PRINT 


"HOW MANY GALLONS OF GAS DID YOU USE" 


110 


PRINT 


"IN THE PAST FIVE FILL-UPS" 


120 


INPUT 


G 


130 


MPG=M/G 


140 


PRINT 


"YOU HAVE BEEN GETTING "MPG 


150 


PRINT 


"MILES PER GALLON" 


Not 


ice th 


at we used G as the VARIABLE for gas, M as the 


VARIABLE 


for miles, and MPG as the VARIABLE for miles per 



gall on « In line 130, MP6-M/G means miles per gallon equals 
miles divided by gallonSa 
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10 STARTER PROGRAMS FROM FAMILY COMPUTING 



COMMODORE 

Bonus Program #5 COUPON CALCULATOR 

Computers are pretty good at solving problems and 
presenting the results in a manner which is easy to read. 
This program can be used to display the amount of money you 
will save with your shopping coupons. 



10 PRINT CHR*(147) 

20 PRINT "COUPON CALCULATOR" 

30 PR I NT SPRINT "TO FIND OUT HOW MUCH YOU'LL SAVE" 

40 PRINT "WITH YOUR SHOPPING COUPONS" 

50 PRINT "ANSWER THE FOLLOWING QUESTIONS" 

60 PRINT "THEN PRESS THE RETURN KEY" 

70 PRINT! PRINT "HOW MANY COUPONS DO YOU HAVE" 

80 INPUT C 

90 PRINT: PRINT "ENTER THE AMOUNT. OF A COUPON" 

100 PRINT "DON'T USE A DOLLAR SIGN" 

110' PRINT "DO USE A DECIMAL POINT"!PRINT 

120 FOR E « 1 TO Cs PRINT "ENTER VALUE OF COUPON #"E 

130 INPUT A , i 

140 T=T+A 

150 NEXT E 

160 PRINT! PRINT "*"T" WILL BE SAVED" 

The VARIABLES in this program are: 

C=n umber o-f coupons 

E=coupon# 

A=value of coupons 

T=total value of coupons 

Line 140 adds up the total, each time a value is entered 
into the computer. Line 160 prints the total value to be 
saved. 
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10 STARTER PROGRAMS FROM FAMILY COMPUTING 



COMMODORE 

» 

Bonus Program #6 SPORTS FORECASTER 

The SPORTS FORECASTER can be a handy program if you enjoy 
sportsn This program will take a team's current record and 
project, based on winning percentage, what the team's record 
will be at the end o-f the season- 



10 PRINT CHR;^(147) 

20 PRINT "SPORTS FORECASTER" 

3(3 FOR Z - 1 TO 1500SNEXT ZsPRINT 

40 PRINT "THIS PROGRAM WILL FORECAST A TEAM'S" 

50 PRINT "FINAL WIN AND LOSS RECORD" 

60 PRINT "BASED OH ITS CURRENT RECORD « " 

70 PR I NT SPRINT "ANSWER EACH QUESTION" 

80 F'RINT "THEN PRESS RETURN" 

90 PRINTS PRINT "HOW MANY GAMES DOES THE TEAM PLAY" 

100 INPUT T 

110 PRINTS PRINT"HOW MANY WINS DO THEY HAVE NOW" 

120 INPUT W 

130 PRINT "HOW MANY LOSSES DO THEY HAVE NOW" 

140 INPUT L 

150 P=!=W/(W+L) 5 Y==T-^P5D==T-Y 

160 PRINTsPRINT "END OF THE SEASON PROJECTIONS" . 

170 PRINTsPRINT "WINS=:=" INT (Y) " LOSSES==" INT <D) -H 

The VARIABLES ares 

Z-time delc^y variable 

T-total games in season 

W-games won 

L-games lost 

F'-percentc\ge of games won 

Y-end o-f* year games projected won 

D-end qi year games projected lost 

The forecast is completed in line 150 when the winning 
percentage <P) is established by dividing the number of- 
completed games (W-+-L) into the total games won so far (W) « 
The total wins for the year is estimated by multiplying the 
amount of games in the season (T) by the winning percentage 
(P) « The year end losses B,rB determined by subtracting the 
end of year projected games won (Y) from the total games in 
the season (T) » 
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10 STARTER PROGRAMS FROM FAMILY COMPUTING 



COMMODORE 

Bonus Program #7 SHOWER MONITOR 

Getting into the shower, day after day, and finding cold 
water can be a drag. I'm sure that large families know what 
I'm talking about. Bonus Program #7 has been designed to 
whip morning bathroom confusion. It's called the SHOWER 
MONITOR. You type in the names and the computer picks the 
shower order. 



10 PRINT eHR*<147) 
20 PRINT "SHOWER MONITOR" 

30 FOR T^ 1 TO 2000: NEXT Ts PRINT CHR*(147) 
40 PRINT "THIS PROGRAM IS DESIGNED TO HELP" 
50 PRINT "FAMILIES DECIDE, IN A FAIR WAY" 
60 PRINT "THE ORDER IN WHICH THE SHOWER IS USED" 
.70 PRINT "IN THE MORNING. " 

80 PRINT: PRINT "EACH PERSON'S NAME IS TYPED INTO THE" 
90 PRINT "COMPUTER. THEN THE COMPUTER RANDOMLY" 
100 PRINT "CHOOSES THE ORDER <AS IF OUT OF A HAT)." 
110 PRINT "TYPE EACH ANSWER, THEN PRESS RETURN. " 
120 PRINT: PRINT "HOW MANY PEOPLE IN YOUR FAMILY" 
130 INPUT P 

140 PRINT: PRINT "TYPE IN THE NAMES, ONE AT A TIME." 
150 PRINT "THEN PRESS RETURN. " 
160 FOR H = 1 TO P 
170 INPUT N*(H) 
180 NEXT H 

190 PRINT CHR*( 147) : PRINT "THIS IS THE SHOWER ORDER TODAY:" 
200 PRINT: FOR R «» I TO P 
210 X=INT(RND(1)*P)+1 
220 IF N*(X>=""THEN 210 
230 PRINT N*<X) 
240 N*(X)="" 
250 NEXT R 
260 GOTO 260 

The VARIABLES ares- 

P=number of people in family 

H=array parking lpt# 

X=random number 

N*(X)=name of person X in array 

Recounting variable 

You are probably : wondering what an ARRAY is. An ARRAY is; a 
computer parking lot. In an ARRAY you don't' park cars. 
Rather, you park words and numbers. In this program we 
parked the name -df each person in an ARRAY location (such as 
N*<l)="Mom",N*<2)="Larry",N*<3)="Rick",etc). The names are 
loaded into the. ARRAY in lines 160-180. The RANDOM shower 
order is determined in lines 200-250. Can you figure out 
why a name isn't picked more than once? 
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10 STARTER-PROGRAMS FROM FAMILY COMPUTING 



COMMODORE 

Bonus Program #8 NUMBER GAME FOR TWO 

Computers are great -for playing games. they can be 
programmed to make games, both unpredictable and esciting. 
Here is a super game for two people. The computer "pulls a 
number out o-f its hat", and the players take turns trying to 
guess the number. The player with the most correct guesses, 
after seven rounds, is the champ. Switch sides after seven 
rounds. You will be surprised at the strategies involved. 

10 PRINT CHR*<147) 

20 PRINT "THIS IS A NUMBER SAME FOR TWO PEOPLE" 

30 PRINT "THE COMPUTER PICKS A NUMBER BETWEEN i AND 500." 

40 PRINT "THE PLAYERS TAKE TURNS GUESSING THE NUMBER" 

50 PRINT "UNTIL SOMEONE GUESSES THE NUMBER" ' 

60 PRINT "THE PLAYER GUESSING THE MOST NUMBERS," 

70 PRINT "AFTER 7 ROUNDS, IS THE WINNER" 

80 PRINT ! INPUT "WHAT IS PLAYER #1'S NAME " HP 1* 

90 PRINT ! INPUT "WHAT IS PLAYER #2'S NAME"!P2* 



100 R=R+lsN 



INT (RND<1) * 500) +1 



110 IF R>1 THEN PRINT"THE SCORE IS "P1*"="P1" "P2*"="P2 

120 FOR T =1 TO 2500s NEXT T 

130 IF R > 7 THEN 260 

140 FOR T = 1 TO 1000s NEXT T 

150 PRINT CHR*(147) s PRINT "ROUND "R", "P1*"'S TURN" 

160 PRINT ! INPUT "WHAT IS YOUR GUESS" sGl 

170 IF Gl < N THEN PRINT "TOO LOW "Pl*sGOTO 200 

180 IF Gl > N THEN PRINT "TOO HIGH": GO TO 200 

190 PRINT "YOU GOT IT "Pl*sPl = PI + IsGOTO 100 

200 FOR T = 1 TO .1000: NEXT T . 

210 PRINT CHR*(1 47) SPRINT "ROUND "R", "P2t-"'S TURN" 

220 PRINT: INPUT "WHAT IS YOUR GUESS" 5 G2 

230 IF G2 < N THEN PRINT "TOO LOW" s GOTO 140 

240 IF 62 > N THEN PRINT "TOO HIGH"s60T0 140 

250 PRINT "YOU GOT IT "P2*!P2 = P2 •+-lsGOTQ 100 

260' PRINT CHR*(i47) sFOR T = 1 TO 1000s NEXT T 

270 IF PI > P2 THEN PRINT PI*" CREAMED "P2*" "PI 

280 PRINT P2*" WASTED "PI* " "P2" TO "PI 



TO "P2:END 



Th 


e VARIABLES 


ares 


Pl*=p layer 


#1 




P2 


*=p layer 


#2 




PI 


=player 


#1 


score 


P2 


=p layer 


#2 


score 


Gl 


=p layer 


#1 


guess 


G2 


=p layer 


#2 


guess 


R= 


round# 






T= 


time del 


ay 


variable 


N= 


secret r 


lumh 


er 



The secret number (N) is picked in line 100« To alter the 
limits of the secret number , you can change the 500 to a 
larger or smaller number. Try 10000, for instance. In 
several places you may notice symbols like this: > or 
thiss n The symbol > means "greater than" and < 
means "less than". Can you make this game work with four 
players? 
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COMMODORE 

Bonus Program #9 PRACTICAL JOKER 

Are you ready for some laughs? I-f so, Bonus Program #9 
is the one -for you. It's called the PRACTICAL JOKE PROGRAM. 
Here's How it works: 

You type the program into your computer while the victim 
isn't around. RUN the program. The computer will ask you 
questions about the victim. You answer all the questions 
until the computer says, "PRESS ANY KEY TO START THE JOKE". 
Press a key and the joke is ready -for the victim. When the 
victim comes back, the computer will seem to know all about 
him/her. Just say that you're hooked up to the MASTER 
COMPUTER, and it knows EVERYTHING!!! 

10 PRINT CHR*(147) 

20 PRINT "PRACTICAL JOKE PROGRAM" 

30 FOR T=l TO 1000: NEXT T ' 

40 PRINT CHR*(147) 

50 INPUT "WHAT IS THE VICTIM'S NAME";N* 

60 INPUT "IS THE VICTIM MALE OR FEMALE" ;MF* 

70 IF MF*?= "MALE" OR MF$= "M" THEN G*= "HE":P*:= "HIS" 

80 IF MF*= "FEMALE" OR MF*= "F" THEN G*= "SHE":P*= "HER" 

90 PRINT "WHAT CITY IS "6*" FROM?": INPUT C* 

100 PRINT "HOW OLD IS "Gt" NOW?": INPUT A 

110 PRINT "WHAT IS "P*" FAVORITE HOBBY": INPUT H* 

120 PRINT "WHAT IS "P*" .NICKNAME" : INPUT NN* 

130 PRINT "PRESS ANY KEY TO START THE JOKE." 

140 GET S*:IF S*="" THENi40 

150 PRINT CHR*(147) 

160 PRINT "PRESS A KEY AND I WILL TALK TO YOU" 

170 GET S*: IFS*=""THEN170 

180 PRINT "HELLO, LET ME TRY TO GUESS YOUR NAME." 

190 PRINT "I'M THINKING..." 

200 GOSUB 400 

210 PRINT "YOU LOOK LIKE SOME TYPE OF "N*:GOSUB400 

220 PRINT "BUT I HOPE YOU WON'T MIND IF I CALL YOU" 

230 PRINT NN*:GOSUB400 I 

240 PRINT "THE TOUCH OF YOUR FINGERS" : PRINT 

250 PRINT "LEADS ME TO BELIEVE YOU ARE AT LEAST": PRINT 

260 PRINT A" YEARS OLD" : GOSUB400 

270 PRINT "AND YOU SMELL LIKE A PERSON FROM": PRINT 

280 PRINT C*:GOSUB400 

290 PRINT "THE CENTRAL COMPUTER TELLS ME YOU LIKE;": PRINT 

300 PRINT H*:GOSUB400 

310 PRINT "NOW, IT'S YOUR TURN TO ASK ME A QUESTION" 

320 INPUT "TYPE YOUR QUESTION, THEN PRESS RETURN" ;Q* 

330 GOSUB400 

340 PRINT "SORRY, "NN*" THAT'S TOO PERSONAL,!" 

350 PRINT "YOUR ACCESS TO THE MASTER COMPUTER HAS" 

360 PRINT "BEEN TERMINATED UNTIL 1999": END 

400 FOR T =1 TO 4000: NEXTT: PRINT CHR* ( 147) : RETURN 

contintied on next page.... 
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10 STARTER PROGRAMS FRQM FAMILY COMPUTING 



COMMODORE 



In the PRACTICAL JOKE program you are introduced to some 
new commands. Two are called GOSUB and RETURN (not the key). 
GOSUB 400 means, "goto the subroutine at 400"- A SUBROUTINE 
is like a program, within a program. RETURN means "return 
to the main program". A SUBROUTINE always starts with GOSUB 
and ends with RETURN. This SUBROUTINE, line 400, causes a 
time delay and clears the screen. In lines 140 and 170 is 
another, new command, called GET. GET S* tells the computer 
to wait -for a key to be pressed. In line 140, if no key is 
pressed, the computer waits at line 140. When a key is 
pressed, the program proceeds on to line 150. 

VARIABLES ares 
T-time delay 
N-$-victim's name 
MF*=male or -female 
G*=he or she 
C$=city 
A=age 
H$=hpbby 
NN*=nickname 
P*-his or her 
Q*-question 
S*-get variable 
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COMMODORE 

Bonus Program #10 MATH SHARPENER 

This program is called the MATH SHARPENER. I've been 
saving this program -for the whiz kids. You must be one, or 
you wouldn't be reading this. The MATH SHARPENER has been 
designed to quiz both the beginner, and the advanced, on 
basic math skills. Don't use a scratch pad and I assure 
you, you'll get a work out. You will receive instructions 
when you RUN the program. 

10 REM***MATH SHARPENER*** 

20 PRINT CHR*<147) 

30 PR I NT "THIS IS A PROGRAM TO SHARPEN YOUR MATH" 

40 PRINT 

50 PRINT "CHOOSE". 1) EASY 2) HARD, THEN PRESS RETURN" 

60 INPUT L 

70 PR I NT "THE SYMBOLS ARE:" 

80 PRINT"+ ADD - SUBTRACT" 

90 PRINT"* MULTIPLY / DIVIDE" : PRINT 

100 PRINT"EXAMPLES: " 

110 PRINT"2+3=5 8-4=4" 

120 PRINT"2*4=8 9/3=3": PRINT 

130 PR I NT "PICK THE NUMBER OF THE FUNCTION" 

140 PRINT"YOU WANT TO PRACTICE: ": PRINT 

150 PRINT" 1) ADD" 

160 PRINT "2) SUBTRACT" 

170 PR LNT "3) MULTIPLY" 
. 180 PRINT"4) DIVIDE" 

190 INPUT D 

200 PRINT CHR*(147) :PRINT"TYPE THE NUMBER OF QUESTIONS" 

210 INPUT "YOU WANT, THEN PRESS RETURN" ;Q 

220 FOR T=l TO Q 

230 PR I NT "ANSWER THE PROBLEM, THEN PRESS RETURN" : PRINT 

240 IF L=l THEN A=INT (RND < 1 > *10) +1 : B=INT (RND ( 1 ) *10) +1 
.250 IF L=2 THEN A=INT (RND ( 1 ) *200) +1 : B=INT (RND < 1 ) *200) +1 

260 IF D=2 AND A<B THEN 240 

270 IF D=4 AND A<B THEN 240 

280 IF D=4 AND A/B <> INT (A/B) THEN240 

290 IF A=B OR B=l THEN 240 

300 IF D=l THEN PRINT A"+"B"=" ;: INPUTC 

310 IF D=2 THEN PRINT A"-"B"=" ;: INPUTC 

320 IF D=3 AND L=l THEN PRINT A"*"B"=" 5 : INPUT C 

330 IF D=3 AND L=2 THEN PRINT INT (A/5)."*" INT (B/5)-" = " ;: INPUTC 

340 IF D=4 THEN PRINT A"/"B"=" ;: INPUTC 

continued on next page... 
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COMMODORE 

350 PRINT 

360 IF D=l AND C=A+B THEN S=S+1:PRINT "ALRIGHT !": 6OTO490 

370 IF D=2 AND C=A-B THEN S=S+1: PRINT"RIBHT ON ! " : BOTO490 

380 IF D=3 AND L=l AND C=A*B THEN S=S+1:Z=1 

390 IF Z=l THEN PRINT "CORRECT !": Z=0: GOTO490 

400 IF D=3 AND L=2 AND C=INT (A/5) *INT <B/5) THEN S=S+1:Z=2 

410 IF Z=2 THEN PRINT "GREAT !": Z=0: GOTO500 

420 IF D=4 AND C=A/B THEN S=S+1 : PRINT"YOWSAH ! " : GOTO490 

430 PR I NT "YOU GOOFED. THE ANSWER WAS:"; 

440 IF D=l THEN PRINT A+B 

450 IF D=2 THEN PRINT A-B 

460 IF D=3 AND L=l THEN PRINT A*B 

470 IF D=3 AND L=2 THEN PRINT INT (A/5) *INT (B/5) 

480 IF D=4 THEN PRINT A/B 

490 FOR W=lTOe00:NEXT W: PRINT CHR* ( 147) : NEXT T 

500 PRINT" YOUR SCORE IS: "S" OUT OF "Q"'rI6HT!" 

510 PR I NT "PRESS ANY KEY TO CONTINUE" 

520 GET A*: IF A*= ""THEN520 

530 S=0:GOTO 10 

The VARIABLES are: 
L=easy/hard 

D=-func:tion to practice 
Q=# of questions 
T=question loop 
•A=random number 1 
B=random number 2 
C=choice (your answer) 
W=delay 
S=score 

A*=get variable 
Z=correct multiplication flag 

If you have problems getting this program to work properly, 
double check lines 240-500. These are the lines' where most 
of the mathematical processing takes place. In this 
section, if D=l, then you are adding; if D=2, you are 
subtracting; D=3, means multiplying; and D=4 signifies 
division. If L=l, then the quizzes are easy. If L=2, then 
the quizzes are hard". Should you have the desire to make 
the program more difficult, you can increase the RANDOM 
NUMBERS, in lines 240-250. 
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Banus Program 


#1 CARTOON 


ROBOT 






BLAST OFF! 


is a comput 


er cartoon in wh 


ich the count down 


and blast o-ff 


of a rocket 


takes place on 


your t . V. 


screen . 


10 CALL CLEAR 










20 FOR C=10 TO 


1 STEP - 1 








30 PRINT C 










40 FOR T=l TO 


200 








50 NEXT T 










60 CALL CLEAR 










70 NEXT C 










. 80 CALL CLEAR 










90 PRINT "BLAST OFF! ! ! ! " 








100 FOR T=l TO 


200 


\ 






110 NEXT T , 










The above lines tell the computer to coun 


t down , -f 


rom 10 to 


1 then print, 


"BLASTOFF!" 


M 






Now add these 


to the lines above: 






120 CALL CLEAR 










130 PRINT " 


A" 








140 PRINT " 


/ \" 








150 PRINT " 


i i II 








160 PRINT " 


! U ! " 








170 PRINT " 


1 i l> 


- . - 






180 PRINT " 


!S!" 








190 PRINT " 


1 1 II 








200 PRINT ■'' 


! A! " 








> 210 PRINT " 


1 1 II 






' 


220 PRINT " 


/ \ " 








, 230 PRINT " 


/ \ •! 








240 PRINT: : : : : 


SSSSSSSSSSS) 


( M -a ■ ■ '« N M M 






To make the nose cone on the rocket, hold. 


down the 


SHIFT key 


and press the 


NUMBER 6 key. The slanted 


lines, on 


the right 


side o-f the rocket, are created by holding down th( 


3 FCTN key 


and pressing Z 


key. The slanted lines on 


the le-ft 


side of 


the rocket can 


be printed 


by pressing the 


/ key 


(just 


above the ENTER key).' In 


line 240 you need to mak< 


3 at least 


twenty-five COLONS. Each 


COLON tells the 


computer 


to print 


a blank 1 ine. 


Type RUN, then press ENTER 


to see the rocket I 


BLAST OFF ! 
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Bonus Program #2 FAMILY DECISION MAKER 

How would you like to use your home computer for solving 
problems like, "Who will use the computer first, Jimmy or 
Bobby?"... or how. about, "Should we use the t.v. to watch a 
movie, or, play with the computer?". The FAMILY DECISION 
MAKER can help you solve these problems, and more. It will 
-make the decrision -for you, by picking a random choice. All 
you have to do is to type in the options. 



10 RANDOMIZE 

20 CALL CLEAR 

30 PRINT "FAMILY DECISION MAKER" 

40 FOR T=l TO 1500 

50 NEXT T 

60 CALL CLEAR 

70 PRINT "TYPE IN THE OPTIONS AND" 

80 PRINT "THE COMPUTER WILL DECIDE. 

90 PRINT "WHAT IS OPTION #1" 

100 INPUT 01* 

110 PRINT "WHAT IS OPTION #2". 

120 INPUT 02$ 

130 PRINT "I'M THINKINS IT OVER.... 

140 FOR T = 1 TO 1000 

150 NEXT T 

160 C=INT(RND*2)+1 

170 CALL CLEAR 

180 PRINT "MY CHOICE ISs " 

190 IF C=2 THEN 220 

200 PRINT Oi*. 

210 END 

220 PRINT 02* 



In this program the computer makes its choice in line 160. 
Lines 130 to 150 are where the computer is, "thinking it 
over". You probably noticed that the computer isn't really 
"thinking it over". It's actually counting up to 1000, then 
executing line 160. The choice is printed on the screen in 
lines 180-220. 

The VARIABLES ares 
T=time delay 
C==choice 
01*=option #1 
02*=option #2 
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Bonus Program #3 M«P-G« RECORDER 

If you're like rne, you never taxke the trouble to -figure 
out your car's miles pBr gallon <M«F'«G«)a Even having a 
calculator handy has never helped, though there are only 
three basic numbers to calculate- This is one more instance 
in which wanting to use my computesr motivates me to do the 
•fairly simple task I've managed to ignore« My mechanic 
tells me that I should check my MoP.G. a-fter every -five 
fill-ups- That way, if my MoP«G. starts dropping, I can 
take my car in -for a checkup «.« before it's too late« 



10 CALL CLEAR 

20 PRINT "MPG CALCULATOR" 

30 FOR T-:^! TO 1500 

40 NEXT T 

50 CALL CLEAR 

60 PRINT "THIS PROGRAM DETERMINES" 

70 PRINT "THE MPG YOUR CAR GETS. " 

80 PRINT "HOW MANY MILES DID YOU DRIVE" 

90 PRINT "DURING THE PAST 5 FILL-UPS" 

100 INPUT M 

110 PRINT "HOW MANY GALLONS OF GAS DID YOU" 

120 PRINT "USE IN "fHE PAST 5 FILL-UPS" 

130 INF'UT G 

140 MPG=M/G 

150 PRINT "YOU HAVE BEEN GETTING" 5 MPG 

160 PRINT "MILES PER GALLON" 

Notice that we used G as the VARIABLE -for gas, M as the 
VARIABLE for miles, and MPG as the VARIABLE for miles per 
gallona In line 140, MPG--M/6 means miles per galTon equals 
miles divided by gallons« 
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Bonus Program #4 COUPON CALCULATOR 

Computers are pretty good at solving problems and 
presenting the results in a manner which is easy to read. 
This program can be used to display the amount of money you 
will save with your shopping coupons. 

10 CALL CLEAR 

20 PRINT "COUPON CALCULATOR" 

30 PRINt 

40 PRINT' "FIND OUT WHAT YOU'LL SAVE" 

50 PRINT "WITH YOUR SHOPPING COUPONS" 

60 PRINT "ANSWER THE QUESTION" 

70 PRINT "THEN PRESS THE ENTER KEY" 

80 PRINT , 

90 PRINT "HOW MANY COUPONS DO YOU HAVE" 

100 INPUT C 

110 PRINT 

120 PRINT "TO ENTER VALUE OF A COUPON" 

130 PRINT "DON'T USE A DOLLAR SIGN" 

140 PRINT "DO USE A DECIMAL POINT" 

150 PRINT 

160 FOR E = 1 TO C 

170 PRINT "ENTER VALUE OF COUPON #";E 

180 INPUT A 

190 T=T+A 

200 NEXT E 

210 PRINT 

220 PRINT "*";T; "WILL BE SAVED" 

The VARIABLES in this program are: 

C=number o-f coupons 

E=coupontt 

A=value of coupons 

T=total value of coupons 

Line 190 adds up the total, each time a value is entered 
into the computer. Line 220 prints the total value to be 
saved. 
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Bonus Program #5 SPORTS FORECASTER 

The SPORTS FORECASTER can be a handy program if you enjoy 
sports. This program will take a team's current record and 
project, based on winning percentage, what the team's record 
will be at the end o-f the season. 



10 CALL CLEAR 

20 PRINT "SPORTS FORECASTER" 

30 FOR Z=l TO 500 

40 NEXT Z 

50 PRINT 

60 PRINT "TO FORECAST A TEAM'S" 

70 PRINT "FINAL WIN AND LOSS RECORD" 

80 PRINT "BASED ON ITS CURRENT RECORD" 

90 PRINT 

100 PRINT "ANSWER THE QUESTION" 

110 PRINT "THEN PRESS ENTER" 

120 PRINT 

130 PRINT "ENTER TOTAL SAMES TEAM PLAYS" 

140 INPUT T 

150 PRINT 

160 PRINT "HOW MANY WINS DO THEY HAVE" 

170 INPUT W 

180 PRINT "HOW MANY LOSSES DO THEY HAVE" 

190 INPUT L 

200 P=W/<W+L) 

210 Y=T*P 

220 D=T-Y 

230 PRINT "END OF THE SEASON PROJECTION" 

240 PRINT 

250 PRINT "WINS="; INT(Y) ;"LOSSES="; INT(D)+1 

The VARIABLES are: 

Z=time delay variable 

T=total games in season 

W=games won 

L=games lost 

P=percentage o-f games won 

Y=end of year game? projected won 

D=end of year games projected lost 

The forecast is completed in line 200 when the winning 
percentage <P) is established by dividing the number of 
completed games (W+L) into the total games won so far (W) . 
The total wins for the year is estimated by multiplying the 
amount of games in the season <T) by the winning percentage 
(P) . The year end losses are determined by subtracting the 
end of year projected games won (Y) from the total games in 
the season <T) . 
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Bonus Program #6 SHOWER MONITOR 

Getting into the shower, day a-fter day, and -finding cold 
water can be a drag. I'm sure that large families know what 
I'm talking about. Bonus Program #7 has been designed to 
whip, morning bathroom con-fusion. It's called the SHOWER 
MONITOR. You type in the names and the computer picks the 
shower order. 

10 RANDOMIZE 

20 CALL CLEAR 

30 PRINT "SHOWER MONITOR" 

40 FOR T=l TO 2000 

50 NEXT T 

60 CALL CLEAR 

70 PRINT "THIS PROGRAM WILL HELP" 

80 PRINT "DECIDE, IN A FAIR WAY" 

90 PRINT "THE MORNING' SHOWER ORDER" 

100 PRINT 

110 PRINT "TYPE ANSWER THEN ENTER" 

120 PRINT "HOW MANY IN YOUR FAMILY" 

130 INPUT P 

140 PRINT 

150 PRINT "TYPE IN THE NAMES, ONE AT" 

160 PRINT "A TIME. THEN PRESS ENTER" 

170 FOR H=l TO P 

180 INPUT N*(H) 

190 NEXT H 

200 CALL CLEAR 

210 PRINT "THIS IS THE SHOWER ORDER:" 

220 FOR R=l TO P 

230 X=INT<RND*P)-+1 

240 IF Nt<X)=""THEN 230 

250 PRINT N*<X) 

260 N*(X)="" 

270 NEXT R 

280 GOTO 280 



The VARIABLES are: 

P=number o-f people in family 

H=array parking lot# 

X=rcindom number 

N*-(X)=name of person X in array 

R=counting variable 

You are probably wondering what an ARRAY is. An ARRAY is a 
computer parking lot. In an ARRAY you don't park cars. 
Rather, you park words and .numbers. In this program we 
parked the name of each person in an ARRAY location (such ai 
N*(l)="Mom",N*(2)="Larry",N*(3)="Rick",etc. ). The names art 
loaded into the ARRAY in lines 170-190. The RANDOM shower 
order is determined in lines 210-220. Can. you figure out 
why a name isn't picked more than once? 
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Bonus Program #7 ELECTION RETURN 

Stage- a mock primary with four candidates. Twenty-five 
precincts report, one at a time. Running totals are printed 
as each reports. When all the returns are in, the computer 
displays the final resul-ts. 

10 CALL CLEAR 

20 PRINT "ELECTION RETURNS" 

30 FOR A=l TO 1500 

40 NEXT A 

50 FOR X=l TO 4 

60 PRINT "INPUT NAME OF CANDIDATE #";X 

70 INPUT N*(X) 

80 NEXT X 

90 CALL CLEAR 

100 PRINT "THE POLLS JUST CLOSED" 

110 PRINT "8/. THE RESULTS ARE COMING IN" 

114 FOR Y=l TO 500 



118 


NEXT Y 


120 


FOR P=l TO 25 


130 


FOR X=l TO 4 



140 RANDOMIZE 
150 N(X)=INT(RND*999>+1 
160 NEXT X 
170 CALL CLEAR 

1 80 PR INT" PREC I NCT # " ; P ; " RESULTS " 
190 FOR X=l TO 4 
200 PRINT N(X> ; "-";N*(X) 
210 T(X)=N(X)+T(X) 
220 NEXT X 
230 FOR B=l TO 1000 
240 NEXT B 
250 PRINT 

260 PRINT "CURRENT TOTALS:" 
270 FOR X=l TO 4 
280 PRINT T(X)5 "-";N*(X) 
290 NEXT X 
300 FOR C=l TO 1000 
310 NEXT C . 
. 320 NEXT P 
330 CALL CLEAR 

340 PRINT "ALL RETURNS IN, AND" 
350 PRINT "THESE ARE THE TOTALS:" 
360 FOR X=l TO 4 
370 PRINT T<X);"-";Nt(X) 
380 NEXT X 

continued on next page. . .-^ . 



46 



10 STARTER PROGRAMS FROM FAMILY COMPUTING 



The VARIABLES Are: 

N* (X) =candi dates names 1-4 

N(X)=votes per/precinct candidates 1-4 

T(X)=votes total each candidate 1-4 

A=time del ay 1 

B=time delay2 

C=time delay3 

P=precinct # 

X=arrays loading variable 

In lines 50-80 the candidates' names are loaded into an 

array called N*<X). The vote totals, -fpr each precinct, are 

generated by line 150. The precinct totals and subtotals 

are printed out in lines . 100-320. Lines 360-380 print the 

•final results. . 
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Bonus Program #8 PRACTICAL JOf='.ER 

Are you ready -for some laughs? I-f so, Bonus Program #8 
is the one -for you. It's called the PRACTICAL JOKE PROGRAM. 
Here's how it works: 

You type the program into your computer while the victim 
isn't around. RUN the program. The computer will ask you 
questions about the victim. You answer all the questions 
until the computer says, "PRESS ANY KEY TO START THE JOKE". 
Press a key and the joke is ready -for the victim. When the 
victim comes back, the computer will seem to know all about 
him/her. Just say that you're hooked up to the MASTER 
COMPUTER, and it knows EVERYTHING!!! 

10 CALL CLEAR 

20 PRINT "PRACTICAL JOKE PROGRAM" 

30 FOR T = 1 TO 1000 

40 NEXT T 

50 CALL CLEAR 

60 PRINT "WHAT IS THE VICTIM'S NAME"; 

70 INPUT N* 

80 PRINT "IS THE VICTIM MALE OR FEMALE"? . 

90 INPUT MF* 

100 IF MF*="MALE" THEN 120 ELSE 110 

110 IF MF*="M" THEN 120 ELSE 140 

120 6*:= "HE" 

130 Pt= "HIS" 

140 IF MF*="FEMALE" THEN 160 ELSE' 150 

150 IF MF*="F" THEN 160 ELSE 180 

160 G*= "SHE" 

170 P*= "HER" 

180 PRINT "WHAT CITY IS "jG*?" FROM "5 

190 INPUT C* 

200 PRINT "HOW OLD IS "jG*;" NOW"; 

210 INPUT A 

220 PRINT "WHAT IS ";P*;" FAVORITE HOBBY"; 

230 INPUT H* 

240 PRINT "WHAT IS ";P*;" NICKNAME"; 

250 INPUT NN# ■ ' 

260 PRINT "PRESS ENTER TO BEGIN JOKE."; 

270 INPUT S* 

280 CALL CLEAR 

290 PRINT "PRESS ENTER KEY 8< I'LL TALK" 

300 INPUT S* 

310 PRINT "I CAN GUESS YOUR NAME" 

320 PRINT "I'M THINKING..." 

330 GOSUB 700 

340 PRINT "YOU LOOK LIKE ";N*; 

350 GOSUB 700 

360 PRINT "I'LL JUST CALL YOU"; 

370 PRINT NN* 

380 PRINT "IF THAT'S OKAY" 

390 GOSUB 700 

continued on next page. .... . 
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400 


PRINT 


"THE TOUCH OF YOUR FINGERS " 


410 


PRINT 


- 


420 


PRINT 


"TELLS ME YOU ARE" 


430 


PRINT 


' ■ 


440 


PRINT 


An "YEARS OLD" 


450 


eosuB 


700 


460 


PRINT 


"YOU SMELL LIKE A PERSON FROM" 


470 


PRINT 


C* 


480 


PRINT 




490 


GOSUB 


700 


500 


PRINT 


"COMPUTER CENTRAL TELLS ME" 


510 


PRINT 


"THAT YOU DIG" 


520 


PRINT 


H* 


530 


GOSUB 


700 


540 


PRINT 


"NOW, YOU ASK ME A QUESTION" 


550 


PRINT 


"TYPE QUESTION, THEN ENTER" 


560 


INPUT 


Q$ 


570 


GOSUB 


700 


580 


PRINT 


"THAT'S TOO PERSONAL!!!" 


590 


PRINT 


"YOUR ACCESS HAS" 


600 


PRINT 


"BEEN TERMINATED UNTIL 1999" 


610 


END 




700 


FOR T= 


=1 TO 3000 


710 


NEXT •• 


r • . 


720 


CALL CLEAR 


730 


RETURN 



In the PRACTICAL JOKE program you are introduced to some new 
commands • Two are called BOSUB and RETURN (not the key); 
GOSUB 700 means, "goto the subroutine at 700" « A SUBROUTINE 
is like a program, within ^ program. RETURN means "return 
to the main program"- A SUBROUTINE always starts with 60SUB 
and ends v^ith ENTER. This SUBROUTINE, beginning at line 
700, causes a time delay and clears the screen « 
The command ELSE works with IF and THEN, I-f the condition 
isn't met in an IF/THEN statement, ELSE gives an alternate 
line number to GOTO« 

VARIABLES ares 

T-time delay 

N#=victim's name 

MF*«male or female 

(3*--=:he or she 

C*^city 

A-age 

H*-hobby 

NN*=nickname 

P*-his or her 

Q^-question 

S*»continue 
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Bonus Program #9 NUMBER BAME FOR TWO 

Computers are great for playing .games. They can be 
programmed to make games, both unpredictable, and exciting. 
Here is a super game -for two people. The computer "pulls a 
number out o-f its hat", and the players take turns trying to 
guess the number. The player with the most correct guesses, 
a-fter seven rounds, is the champ. Switch sides after seven 
rounds. You will be surprised at the strategies involved. 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 



RANDOMIZE 
CALL CLEAR 
PRINT "WHAT 
PI* 



IS PLAYER # I'S NAME" 



IS PLAYER # 2'S NAME' 



INPUT 

PRINT 

PRINT "WHAT 

INPUT P2* 

R=R+1 

N=INT<RND*500)+1 

IF R>1 THEN 110 ELSE 130 

PRINT "THE SCORE =";P1*; 

IF R>7 THEN 460 

FOR T=l TO 1000 

NEXT T 

GALL CLEAR 

PRINT "ROUND"!|R; 

PRINT 

PRINT "WHAT IS YOUR GUESS" 

INPUT ei 



A! 



iP2*!"="5B 



Pl*5" 'S TURN" 



IF GKN 
GOSUB 5: 
IF GKN 
IF B1>N 



THEN 

THEN 
THEN 



GOSUB 550 
IF G1>N THEN 



290 
240 

290 



ELSE 220 



ELSE 250 



PRINT "YOU GOT IT' 

A=A+1 

GOTO 80 

FOR T=l TO 1000 

NEXT T 

CALL CLEAR 

PRINT "ROUND" ;R5", 

PRINT 

PRINT "WHAT IS YOUR GUESS" 

INPUT 62 

IF G2<N THEN 

GOSUB 530 

IF 62<N THEN 130 

IF 62 >N THEN 400 

GOSUB 550 

IF '62 >N THEN 130 

PRINT "YOU GOT IT" 

B=B+1 

GOTO 80 



P2$s " 'S TURN" 



570 ELSE 380 



ELSE 410 



continued on next page. 
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450 CALL CLEAR ' 

460 FOR T=l TO 1000 

470 NEXT T 

480 IF A>B THEN 490 ELSE 510 

490 PRINT Pit;" CREAMED " n P2-*; " "sA;" TO "5B 

500 END 

510 PRINT P2*;" WASTED "5 Pit 5" ";B;" TO "5 A 

520 END 

530 PRINT "TOO LOW" 

540 RETURN 

550 PRINT "TOO HIGH" 

560 RETURN 

The VARIABLES ares 

Pl*=player #1 

P2*=p layer #2. 

A=p layer #1 score 

B=piayer #2 score 

Gl=player #1 guess 

G2=player #2 guess 

R=round# 

T=time delay variable 

N-secret number 

The secret number (N> is picked in line 90. To alter the 
limits of the secret number, you can change the 500 to a 
larger or smaller n.umber. Player #l's turn occurs in lines 
160-280. Player #2's turn takes place in 320-440. The 
final results are displayed in 450-500. In several places 
you may notice symbols like this: or thiss < . The 
symbol > means "greater than" and means "less than". 
Can you make this gah^e work with four players? 
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Bonus Program #10 MATH SHARPENER 

This program is called the MATH SHARPENER. I've been 
saving this program -for the whis kids. You must be one, or 
you wouldn't be reading this. The MATH SHARPENER has been 
designed to quiz both the beginner, and the advanced, on 
basic math skills. Don't use a scratch pad and I assure 
you, you'll get a work out. You will receive instructions 
when you RUN the program. 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 



RANDOMIZE 

S=0 

CALL CLEAR 

PRIWT "MATH 

PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 



SHARPENER' 



"CHOOSE: DEASY 2) HARD" 

"THEN PRESS ENTER" 

L 

"THE SYMBOLS 

+ ADD 

* MULTIPLY 



ARE: " 

- SUBTRACT" 
/ DIVIDE" 



"EXAMPLES! 

"2+3=5 

"2*4=8 

"PICK THE 
"YOU WANT 



8-4=4" 
9/3=3" 

# OF THE FUNCTION' 
TO PRACTICE" 



"DADD" 

"2) SUBTRACT" 

"3)MULTIPL.Y" 

"4)DIVIDE" 

D 
CALL CLEAR 
PRINT "TYPE THE # 
PRINT "YOU WANTi 
INPUT Q 
FOR T=l TO Q 
PRINT "ANSWER THE 
PRINT "THEN PRESS 
PRINT 

IF L=l THEN 340 ELSE 370 
A=INT(RND*10)+1 
B=INT(RND*10)+1 
GOTO 39.0 

A=INT(RND*200)+1, 
B=INT(RND*200)+1 
IF D=2 THEN 400 ELSE 410 
IF ^<B THEN 330 
IF D< >4 THEN 430 



OF QUESTIONS" 
THEN PRESS ENTER' 



PROBLEM' 
ENTER" 



continued on next page. 
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420 IF A<B THEN 330 


' 


430 IF D=4 THEN 440 ELSE 450 




440 IF A/B <> INT(A/B) THEN 330 




450 IF A=B THEN 330 




460 IF B=l THEN 330 


^ 


470 IF 0=1 THEN 480 ELSE 500 ' 




480 PRINT A;"+";B;"="; 




490 INPUT C 




500 IF D=2 THEN 510 ELSE 530 




510 PRINT A;"-";B;"="; 




520 INPUT C 




530 IF D=3 THEN 540 ELSE 600 




540 IF L=l THEN 550 ELSE 570 




550 PRINT A; "*";B; "="; 




560 INPUT C 




570 IF L=2 THEN 580 ELSE 600 




580 PRINT INT (A/5) ;"*'•; INT (B/5) ; " = "; 




590 INPUT C 




600 IF D=4 THEN 610 ELSE 630 




610 PRINT A;"/";B; "="; 




620 INPUT C 




630 PRINT 




640 IF D=l THEN 650 ELSE 690 




650 IF C=A+B THEN 660 ELSE 690 




660 S=S+1 




670 PRINT "ALRIGHT!" 




680 60T0 1060 




690 IF D=2 THEN 700 ELSE 740 




700 IF C=A-B THEN 710 ELSE 740 




710 S=^S+1. 




720 PRINT "RIGHT ON!" 




730 GOTO 1060 




740 IF D=3 THEN 750 ELSE 850 




750 IF L=l THEN 760 ELSE 800 


i ■ 


, 760 IF C=A*B THEN 770 ELSE 850 




770 S=S+1 




780 PRINT "CORRECT!" 




790 GOTO 1060 




800 IF L=2 THEN 810 ELSE 850 




810 IF C=INT<A/5)*INT(B/5) THEN 820 ELSE 850 




820 S=S+1 




830 PRINT "UNBELIEVABLE!" 




840 GOTO 1060 




850 IF D=4 THEN 860 ELSE 900 


' 


860 IF e=A/B THEN 870 ELSE 900 




870 S=S+1 




880 PRINT "YOWSAH!" 




890 GOTO 1060 




900 PRINT "YOU GOOFED /THE ANSWER IS "; 




910 IF D=l THEN 920 ELSE 940 




920 PRINT A+B 




930 GOTO 1060 




940 IF D=2 THEN 950 ELSE 970 




continued cbn next page. -..-. • 
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950 PRINT A-B 

960 BOTO 1060 

970 IF D-^Z THEN 980 ELSE 1040 

980 IF L=l THEN 990 ELSE 1010 

990 PRINT A*B 

100<a GOTO 1060 

1010 IF L=2 THEN 1020 ELSE 1040 

1020 PRINT INT (A/S)*INT(B/5) 

1030 GOTO 1060 

1040 IF D=4 THEN 1050 ELSE 1060 

1050 PRINT A/B 

1060 FOR W=l TO 1000 

1070 NEXT W 

1080 CALL CLEAR 

1090 NEXT T 

1100 PRINT "YOUR SCORE IS "?S 

1110 PRINT " OUT OF "jQ; " RIGHT! " 

1120 PRINT "PRESS ENTER TO CONTINUE" 

1130 INPUT A* 

1140 GOTO 10 



The VARIABLES ares 

L=easy/hard 

D-f unction to practice 

(a=s# o-f questions 

T=aquestion loop 

A=«random number 1 

B^random number 2 

C=choice (your answer) 

W=delay 

S-score 

A*-continue 

If you have problems getting this program to work properly, 
double check the lines mentioned in ERROR STATEMENTS « 
Retype the lines that look wrong. In this program, if D-1, 
then you are adding; if D-2, you are subtracting; D=3, 
means multiplying; and D-4 signifies division. If L-1, 
then the quizzes are easy. If L«2, then the quizzes s^re ' 
hard. Should you have the desire to make the program more 
difficult, you can increase the RANDOM NUMBERS, in lines 
340-380. 
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10 STARTER PROGRAMS FROM FAMILY COMPUTING 




TIMEX 




Bonus Program #1 CARTOON ROBOT 




Riddle: What's sweet, but square; high tech, yet down to 




earth; and brilliant, with the I.Q. of a doughnut? 




Give up? 




The answer iss The Fantabulous KISSING ROBOT 




You'll key in a program using FOR and NEXT to make a 




cartoon. The commands FOR and NEXT are used -for counting. 




14 


CL^ 




16 


PRINT "<)***********()" 




18 


PRINT "** **" 




20 


PRINT "** <0) (0) **" 




22 


PRINT "** **" 




24 


PRINT "** V **" 




26 


PRINT "*♦ **" 




28 


PRINT "** — - **" 




30 


FOR T = 1 TO 10 




31 


NEXT T 


»' 


32 


CLS 




34 


PRINT "()♦*******•»*#()" 




36 


PRINT "** **" 




38 


PRINT "♦* <0) (-) **" 




40 


Pi=;:iNT "** **" 




42 


PRINT "** V **" 




44 


PRINT "♦* **" 




46 


PRINT "♦* * **" 




48 


FOR T = 1 TO 10 




49 


NEXT T 




50 


CLS 




52 


PRINT "()**********♦()" 




54 


PRINT "** **" 




• 56 


PRINT "** (0) <0) **" 




58 


PRINT "«♦ **" 




60 


PRINT "** V **" 




62 


PRINT "♦♦ **" 




64 


PRINT "*# **" 




66 


FOR T = 1 TO 10 




67 


NEXT T ■ ■ 




68 


GOTO 14 




This program works like a real cartoon. The robot is 




printed on the screen, and erased, three times. Each time 




it 


is printed, there are small changes made, which give the 




ilJ 


.usion of movement. Line 68 GOTO 14 starts the entire 




process over again. The FOR/NEXT comrpands are used as time 




del 


lays between pictures. You can change the speed of the 




cartoon by changing the 10, in the FOR/NEXT lines,, to a 




different number. Decreasing the number will make the. 




cartoon faster. 
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TIMEX 

Bonus Program #2 FAMILY DECISION MAKER 

How would you like to use your home computer -for solving 
problems like, "Who will use the computer ■first, Jimmy or 
Bobby?". . lior how about, "Should we use the t. v. to watch a 
movie, or play with the computer?". The FAMILY DECISION 
MAKER can help you solve these problems, and more. It will 
make the decision -for you, by picking a random choice. All 
you have to do is to type in the options. 



10 CLS 

20 PRINT "FAMILY DECISION MAKER" 

30 FOR T=i TO 200 

40 NEXT T 

50 CLS 

60 PRINT "TYPE IN THE OPTIONS AND" 

70 PRINT "THE COMPUTER WILL DECIDE. " 

80 PRINT "WHAT IS OPTION NUMBER 1?" 

90 INPUT A* 

100 PRINT "WHAT IS OPTION NUMBER 2?" 

110 INPUT B* 

120 PRINT "I AM THINKINS IT OVER " 

130 FOR T = 1 TO 175 
140 NEXT T 

150 LET C=INT(RND*2)+1 
160 PRINT "MY CHOICE IS:" 
170 IF C=2 THEN GOTO 200 
180 PRINT A* 
190 STOP 
200 PRINT B* 

(Hints You must LIST long programs in sections. This is 
done by typing LIST -followed by the LINE NUMBER you want to 
LIST -from. Example: LIST 100. This would LIST lines 100 
and above, until the screen is full.) 

In this program the computer makes its choice in line 1S0. 
Lines 120 to 140 are where the computer is, "thinking it 
over". You probably noticed that the computer isn't really 
"thinking it over". It's actually counting up to 175, then 
executing line 160* The computer's choice is printed on the 
screen in lines 180-200. 

The VARIABLES area 
T=time delay 
C=choice 

A*=option NUMBER 1 
B*:=option NUMBER 2 
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TIMEX 

Bonus Program #3 M.P.G. RECORDER 

I-f you're like me, you never take the trouble to -figure 
out your car's miles per gallon (M.P.G.). Even having a 
calculator handy has never helped, though there are oiily 
three basic numbers to calculate. This is one instance in 
which wanting to use my computer motivates me to do the 
•fairly simple task I've managed to ignore. My mechanic 
tells me that I should check my M.P.G. after every five 
fill-ups. That way, if my M.P.G. starts dropping, I can 
take my car in for a checkup. .. before it's too late. 



10 CLS 

20 PRINT "MPG CALCULATOR" • 

30 FOR T«l TO 200 

40 NEXT T 

50 CLS 

60 PRINT "THIS PROGRAM DETERMINES" 

70 PRINT "THE MPG YOUR CAR GETS." 

80 PRINT "HOW MANY MILES DID YOU DRIVE" 

90 PRINT "DURING THE PAST 5 FILL-UPS?" 

100 INPUT M 

110 PRINT "HOW MANY GALLONS OF GAS DID YOU" 

120 PRINT "USE IN THE PAST 5 FILL-UPS?" 

130 INPUT G ' 

140 LET MPG-M/G 

150 PRINT "YOU HAVE BEEN GETTING " 5 MPG 

160 PRINT "MILES PER GALLON" 

Notice that we used G as the VARIABLE for gas, M as the 
VARIABLE for miles, and MPG as the VARIABLE for miles per 
gallon.. In line 140, MP6=M/G means miles per gallon equals 
miles divided by gallons. 
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'HOW MANY COUPONS DO YOU HAVE?" 
C 



TIMEX 

Bonus Program #4 COUPON CALCULATOR 

Computers are pretty good at solving problems and 
presenting the results in a manner which is easy to read. 
^This program can be used to display the amount of money you 
will save with your shopping coupons. 

. 10 CLS 
20 PRINT "COUPON CALCULATOR" 
30 PRINT 

40 PRINT "FIND OUT WHAT YOU WILL SAVE" 
50 PRINT "WITH YOUR SHOPPING COUPONS" 
60 PRINT "ANSWER THE QUESTION" 
70 PRINT "THEN PRESS THE ENTER KEY." 
80 PRINT 
90 PRINT ' 
100 INPUT 
110 PRINT 

120 PRINT "TO ENTER VALUE OF A COUPON" 
130 PRINT "DO NOT USE A DOLLAR SIGN" 
140 PRINT "DO USE A DECIMAL POINT" 
150 PRINT 
160 LET T=0 
170 FOR E=l TO C 

180 PRINT "ENTER VALUE OF COUPON NUMBER ";E 
190 INPUT A 
200 LET T=T+A 
210 NEXT E 
220 PRINT 
230 PRINT "*";T;" WILL BE SAVED" 

The VARIABLES in this program aretz 

C=number' 6-f coupons 

E=coupon# 

A=value d-f coupons 

T=total value o-f coupons 

(Hint: See Program #2 i-f you -forgot how to LIST a long 
program. ) 

Line 200 adds up the total , each time a value is entered 
into the computer. Line 230. prints the total value to be 
saved. 
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TIMEX 

Bonus Program #5 SPORTS FORECASTER 

The SPORTS FORECASTER can be a handy program if you enjoy 
sports. This program will take a team's current record and 
project, based on winning percentage, what the team's record 
will be at the end o-f the season. 



10 CLS 
20 PRINT 
30 FOR Z 
40 NEXT Z 
50 CLS 
60 PRINT 
70 PRINT 
SO PRINT 
90 PRINT 
100 PRINT 
110 PRINT 
120 PRINT 
130 PRINT 
140 INPUT 
150 PRINT 
160 PRINT 
170 INPUT 
180 PRINT 
190' INPUT 
200 LET P 
210 LET Y 
220 LET D 
230 PRINT 
240 PRINT 
250 PRINT 



"SPORTS FORECASTER" 
= 1 TO 200 



"TO FORECAST THE FINAL" 

"WIN AND LOSS RECORD OF A TEAM" 

"BASED ON CURRENT RECORD" 

"TYPE YOUR ANSWER" 
"THEN PRESS ENTER" 

"ENTER TOTAL GAMES TEAM PLAYS" 

T 

"HOW MANY WINS DO THEY HAVE?" 

w ■ 

"HOW MANY LOSSES DO THEY HAVE?" 

L 

= W/(W+L) 

= T*P 

- j_Y 

"END OF SEASON PROJECTION" 
"WINS="; INT<Y) ; " LOSSES=" 5 INT (D) + l 



The VARIABLES aire: 

Z=time delay variable 

T=total games in season 

W=games won 

L-games lost 

P=percentage o-f games won 

Y=end o-f year games projected won 

D=;end o-f year games projected lost 

The forecast is completed in line 200 when the winning 
percentage <P) is established by dividing the number of 
completed games (W+L) into the total games won so far (W) . 
The. total wins for the year is estimated by multiplying the 
amount of games in the season (T) by the winning percentage 
(P) . The year end losses are determined by subtracting the 
end of year projected games won (Y) from the total games in 
the season (T) . 
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TIMEX 

Bonus Program #6 



SHOWER MONITOR 



Getting into the shower, day after day, and -finding cold 
water can be a drag. I'm sure that large -families know what 
I'm talking about. Bonus Program #6 has been designed to 
whip morning bathroom con-fusion. It's called the SHOWER 
MONITOR. You type in the names and the computer picks the 
shower order. (Hint: To make DIM press "D". DIM N*<10,15) 
tells' the computer that there will be a total o-f no more 
than 10 names with up to 15 letters each.) 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 



DIM N*(10,15) 

PRINT "SHOWER MONITOR" 

FOR T=l TO 250 

NEXT T 

CLS 

"THIS PROGRAM WILL HELP" 
"DECIDE, IN A FAIR WAY," 
"THE MORNING SHOWER ORDER' 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

PRINT 

PRINT 



"TYPE ANSWER, THEN PRESS ENTER" 
"HOW MANY IN YOUR FAMILY?" 



THE NAMES, 
THEN PRESS 



ONE AT" 
ENTER" 



"TYPE IN 

"A TIME. 
FOR H=l TO P 
INPUT N*(H) 
NEXT H 
CLS 

PRINT "THIS IS THE SHOWER ORDER: 
FOR R=l TO 20 
LET H=INT(RND-»P)-4-l 
IF N*(H)="" THEN GOTO 
PRINT N*(H) 
LET N*(H)="" 
NEXT R 



220 



The VARIABLES are: 

P=nwmber of people in family 

H=array parking lot# 

H=random number 

N*(H)=name of person H in array 

Recounting variable 

You are probably wondering what an ARRAY is. An ARRAY i< 
computer parking lot. In an ARRAY you diqn't park cars. 
Rather, you park word's and numbers. In this program we 
parked the name of each person in an ARRAY location (such as 
N*(l)="Mom",N*(2)="Larry",N*(3)="Rick",etc. ). The names are 
loaded into the ARRAY in lines 160-180. The RANDOM shower 
order is determined in lines 200--260. Can you figure out 
why a name isn't picked more than once? 



a 
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TIMEX 

Bonus Program #7 ELECTION RETURNS 

Stage a mock primary with four candidates. Twenty-five 
precincts report, one at a time. Running totals are printed 
as each reports. When al 1 the returns are in, the computer 
displays the final results. 

10 DIM N$(4,15) 

20 DIM N(4) 

30 DIM T(4) 

40 PRINT "ELECTION RESULTS" 

50 FOR T=l TO 150 

60 NEXT T 

70 FOR X=l TO 4 

80 PRINT "INPUT NAME OF CANDIDATE NUMBER "jX 

90 INPUT Nf(X) 

100 NEXT X 

110 CLS 

120 PRINT "THE POLLS JUST CLOSED," 

130 PRINT "AND THE RESULTS ARE COMING IN" 

140 FOR T=l TO 50 

150 NEXT T 

160 FOR P=l TO 25 

170 FOR Xi=l TO 4 

180 LET N(X)=INT(RND*999)+1 

190 NEXT X 

200 CLS 

210 PRINT "PRECINCT NUMBER "; P; " RESULTS" 

220 FOR X=l- TO 4 

230 PRINT N(X) ; "-";N*<X) 

240 LET T(X)=N(X)+T(X) 

250 NEXT X 

260 FOR T=l TO 50 

270 NEXT T 

280 PRINT 

290 PRINT "CURRENT TOTALS: " 

300 FOR X=l TO 4 

310 PRINT T<X) 5 "-"5N*(X) 

320 NEXT X 

330 FOR C=l TO 50 

340 NEXT C 

350 NEXT P 

360 CLS 

370 PRINT "ALL RETURNS IN, AND" 

380 PRINT "THESE ARE THE TOTALS:" 

390 FOR X=l TO 4 

400 PRINT T(X>!"-";N*(X) 

410 NEXT X 



A list of VARIABLES, and a program explanation, may be found 
on the next page. . 
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TIMEX 

The VARIABLES ares 

N* (X) -candidates names 1-4 

N(X)=votes per precinct candidates 1-4 

T(X)«votes total each candidate 1-4 

T«time delay 

psaprecinct # 

X=arrays loading variable 



In lines 70-100 the candidates' names are loaded into an 
array called N-^(X). The vote totals, for each precinct, are 
generated by line 180« The precinct totals and subtotals 
are printed out in lines 160-350- Lines 390-410 print the 
•final results. 
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TIMEX 

Bonus Program #B PRACTICAL JOKER 

Are you ready -for some laughs? If so, Bonus Program #8 
is the one -for you. It's called the PRACTICAL JOKE PROGRAM. 
Here's how it works: 

You type the program into your computer while the victim 
isn't around. RUN the program. The computer will ask you 
questions about the victim. You answer all the questions 
until the computer says, "PRESS ENTER TO START THE JOKE". 
Press ENTER and the joke is ready for the victim. When the 
victim comes back, the computer will seem to know all about 
him/her. Just say that you're hooked up to the MASTER 
COMPUTER, and it knows EVERYTHING!!! (Hints: Make GOSUB by 
pressing "H". Make RETURN by pressing "Y") 

10 CLS ' 

20 PRINT "PRACTICAL JOKE PROGRAM" 

30 GOSUB 700 

40 PRINT "ANSWER THE QUESTION" 

50 PRINT "THEN PRESS ENTER. " 

60 PRINT "WHAT IS THE NAME OF THE VICTIM?" 

70 INPUT N* 

80 PRINT "IS THE VICTIM MALE OR FEMALE?" 

90 INPUT M* 

100 IF M* = "MALE" THEN GOTO 120 

110 IF M* = "M" THEN GOTO 120 

115 GOTO 140 

120 LET 6* = "HE" 

130 LET P* = "HIS" 

135 IF G* = "HE" THEN GOTO 180 

140 IF M* = "FEMALE" THEN GOTO 160 

150 IF M* = "F" THEN GOTO 160 

155 GOTO 80 

160 LET G* = "SHE" 

170 LET P* = "HER" 

180 PRINT "WHAT CITY IS ";G*;" FROM?" 

190 INPUT C* 

200 PRINT "HOW OLD IS ";G* 

210 INPUT A 

220 PRINT "WHAT IS "||P*;" FAVORITE HOBBY?" 

230 INPUT H* 

240 PRINT "WHAT IS ";Pt;" NICKNAME?" 

250 INPUT 0* 

260 PRINT "PRESS ENTER TO START JOKE."; 

270 INPUT S* 

280 CLS 

290 PRINT "PRESS ENTER SO I CAN TALK TO YOU" 

300 INPUT S* 

310 PRINT "I CAN GUESS YOUR NAME" 

320 PRINT "I AM THINKING..." 

330 GOSUB 700 

340 PRINT "YOU LOOK LIKE ";N* 

350 GOSUB 700 

continued on next page..... 
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TIMEX 



360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
700 
710 
720 
730 



PF4INT 
PRINT 
PRINT 
BOSUB 
PRINT 
PRINT 
PRINT 
PRINT 

eosuB 

PRINT 

PRINT 

PRINT 

GOSUB 

PRINT 

PRINT 

PRINT 

PRINT 

GOSUB 

PRINT 

PRINT 

PRINT 

INPUT 

GOSUB 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

FOR T 

NEXT T 

CLS 

RETURN 



"I WILL JUST CALL YOU" 

0$ 

"IF THAT IS OK" 

700 

"THE TOUCH OF YOUR FINGERS" 

"TELLS ME THAT YOU ARE" 

"AT LEAST" 

A5 " YEARS OLD" 

700 

"YOU SMELL LIKE A" 

"PROGRAMMER I MET FROM" 

C* 

700 

"THE CENTRAL COMPUTER" 

"TELLS ME THAT YOU LIKE" 



H* 

700 

"NOW, 

"TYPE 

"THEN 

Q* 

700 

"THAT 

0* 

"YOUR ACCESS TO THE" 

"MASTER COMPUTER" 

"HAS BEEN TERMINATED" 

"UNTIL 1999" 

1 T0^75 



YOU ASK ME A QUESTION" 
YOUR QUESTION" 
PRESS ENTER" 



IS TOO PERSONAL" 



In the PRACTICAL JOKE program you are introduced to some new 
commands. .Two are called GOSUB and RETURN (not the key). 
GOSUB 700 means, "goto the subroutine at 700". A SUBROUTINE 
is like a program, within a program. RETURN means "return 
to the main program". A SUBROUTINE always starts with GOSUB 
and ends with ENTER. This SUBROUTINE, beginning at line 
700, causes a time delay and clears the screen. 

VARIABLES &re'. 

T=time_delay 

N*=victim's name 

M*=male or -female 

G*=he or she / 

C*=city 

A-age 

H*=hobby 

0*=nickname 

P*=his- or hter 

Q*=question 

S*=continue 
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TIMEX 

Bonus Program #9 NUMBER BAME FOR TWO 

Computers are great for playing games. . They can be 
programmed to make games, both unpredictable and exciting. 
Here is a super game for two people. The computer "pulls a 
number out of its hat", and the players take turns trying to 
guess the number. The player with the most correct guesses, 
after seven rounds, is the champ. Switch sides after seven 
rounds. You will be surprised at the strategies involved* 

10 PRINT "WHAT IS THE NAME" 

20 PRINT "OF PLAYER NUMBER 1?" 

30 INPUT A* 

40 PRINT "WHAT IS THE NAME" 

50 PRINT "OF PLAYER NUMBER 2?" 

60 INPUT B$ 

70 LET R=0 

80 LET A'=0 

90 LET B=0 

100 LET N=INT(RND*100)+l 

110 LET R=R+1 

120 PRINT "THE SCORE IS: " 5 A*; " = " 5 A? " "sB*-, " = ";B 

130 IF R>7 THEN GOTO 460 

140 FOR T=l TO 75 

150 NEXT T 

160 CLS 

170 PRINT "ROUND "i|R;", "nA*;" S TURN" 

180 PRINT 

190 PRINT "WHAT IS YOUR GUESS?" 

200 INPUT Y 

210 IF Y=N THEN GOTO 270 

220 IF Y>N THEN GOTO 250 

230 GOSUB 540 

240 IF Y<N THEN GOTO 300 

250 GOSUB 560 

260 IF Y>N THEN GOTO 300 

270 PRINT "YOU GOT IT." 

280 LET A=A+1 ' 

290 GOTO 100 

300 FOR T=l TO 75 

310 NEXT T 

320 CLS 

330 PRINT "ROUND "nR;", 

340 PRINT 

350 PRINT 

360 INPUT 



B*! 



S TURN" 



IS YOUR GUESS?" 



"WHAT 

Z 

370 IF Z=N THEN GOTO 430 
380 .IF Z>N THEN GOTO 410 
390 GOSUB 540 

continued on next page. . 
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TIMEX 

400 IF Z<N THEN GOTO 140 

410 BQSUB 560 

420 IF Z>N THEN BOTO 140 

430 PRINT "YOU GOT IT." 

440 LET B=B+1 

450 GOTO 100 

460 CLS 

470 FOR T=l TO 75 

480 NEXT T 

490 IF B>A THEN GOTO 520 

500 PRINT A*;" CREAMED ";B*;" ";A;" TO ";B 

510 STOP 

520 PRINT B*;" WASTED ";A*;" "jB;" TO ";A 

530 STOP 

540 PRINT "TOO LOW" 

550 RETURN 

560 PRINT "TOO HIGH" 

570 RETURN 



The VARIABLES Sire: 
A*=player #1 
B*=p layer #2 
A=p layer #1 score 
B=p layer #2 score 
Y=p layer #1 guess 
Z=p layer #2 guess 
R=round number ' 
T=time delay variable 
N=secret number 

The secret number (N) is picked in linie 100. To alter the 
limits o-f the secret number, you can try changing the 100 to 
a larger or smaller number. In several places you may 
notice symbols ,1 ike this; > or this: < . The symbol > 
means "greater than" and < means "less than". Can you make 
this game work with four players? 
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/ 



been 
up f or 



TIMEX 

Bonus Program #10 MATH SHARPENER 

This program Ls called the MATH SHARPENER. It has 
designed to help improve your' math skills. It is set 
multiplication, but can easily be changed to work with 
addition and subtraction. Don't use a scratch pad and I 
assure you, you'll get a work out. ^ 

10 PRINT "THIS IS. A PROGRAM" 

20 PRINT "TO SHARPEN YOUR MATH" 

30 PRINT 

40 PRINT "HOW MANY QUESTIONS DO YOU WANT?" 

50 INPUT Q 

60 CLS 

70 LET S=0 

80 FOR T=l TO Q 

90 LET A= INT(RND*20)+1 

100 LET B= INT<RND»20)+1 

110 CLS 

120 PRINT "ANSWER THE QUESTION" 

130 PRINT "THEN PRESS ENTER" ' 

140 PRINT 

150 PRINT A;"*";B;"=?" 

160 INPUT C 

170 PRINT 

180 IF C=A*B THEN GOTO 260 

190 PRINT 

200 PRINT "YOU GOOFED, THE ANSWER IS: "; 

210 PRINT A*B 

220 FOR X=l TO 75 

230 NEXT X 

240 NEXT T 

250 GOTO 310 

260 PRINT "YOU GOT IT" 

270 FOR X=l TO 75 

280 NEXT X 

290 LET S=S+1 

300 NEXT T 

310 CLS 

320 PRINT "SCORE= ";S; "-RIGHT. "; Q-S; "-WRONG" 

330 PRINT 

340 PRINT "TO PLAY AGAIN" 

350 PRINT "PRESS THE ENTER KEY" 

360 INPUT P* 

370 CLS 

380 GOTO 40 

A list of VARIABLES and program information are on the next 
page. .... 
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The VARIABLES are: 
Q=number of questions 
S=score 

T=question loop 
A=random number 1 
B=randam number 2 
C=response 
X=del ay variable 
P*=play aigain 

Lines 90 and 100 are where the RANDOM NUMBERS -for the 
questions are decided. Increase these numbers to make the 
quiz harder. To make the quiz work with addition, you must 
change all the multiplication, symbols (*) to addition 
symbols (+) . Subtraction can be accomplished in this 
fashion also. 
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TRS-80 and RADIO SHACK COLOR 



Bonus Program #1 CARTOON ROBOT 

Riddles What's sweet, but square; high tech, yet down to 
earth; and brilliant, with the I.Q. of a doughnut? 

Give up? 

The answer iss The fabulous KISSIN6 ROBOT 

You'll key in a program using FOR and NEXT to make a 
cartoon. The commands FOR and NEXT are used for counting. 



14 CLS. 




16 PRINT 


" < ) *#♦*****#** < ) " 


18 PRINT 


"*♦ **" 


20 PRINT 


"*♦ <0) (0) **" 


22 PRINT 


"♦* ♦*" 


24 PRINT 


"** V #*" 


26 PRINT 


"»* *♦" 


28 PRINT 


"♦* ♦*" 


30 FOR T 


= 1 TO 75: NEXT T 


32 CLS 




34 PRINT 


" ( ) ♦****#****# ( ) " 


36 PRINT 


"** »*" 


38 PRINT 


"** (0) (-) **" 


40 PRINT 


"*# **" 


42 PRINT 


"*♦ V **" 


44 PRINT 


"** **" 


46 PRINT 


"** «*" 


48 FOR T 


= 1 TO 75: NEXT T 


50 CLS 




52 PRINT 


" ( ) ♦*****•♦«•♦*♦♦ ( ) " 


54 PRINT 


"** **" 


56 PRINT 


"** <0) (0) **" 


58 PRINT 


"** *#" 


60 PRINT 


"♦♦ V **" 


62 PRINT 


"*♦ **" 


64 PRINT 


"«* **" 


66 FOR T 


= 1 TO 75: NEXT T 


68 GOTO 14 



This program works like a real cartoon. The robot is 
printed on the screen, and erased, three times. Each time 
it is printed, there are small changes made, which give the 
illusion of movement. Line 68 GOTO 14 starts the entire 
process over again. The FOR/NEXT commands are used as time 
delays between pictures. You can change the speed of the 
cartoon by changing the 75, in the FOR/NEXT lines, to a 
different number. Decreasing the number will make the 
cartoon faster. 
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TRS-80 

Bonus Program #2 FAMILY DECISIOI>l MAKER 

How would you like to use your home computer for solving 
problems like, "Who will use the computer first, Jimmy or. 
Bobby?"... or how about, "Should we use the t.v. to watch a 
movie, or play with the computer?". The FAMILY DECISION 
MAKER can help you solve these problems, and more- It will 
make the decision -for you, by picking a random choice. All 
you have to do is to type in the options. 



10 CLS 
20 PRINT 
.30 FOR T 
40 CLS 
50 PRINT 
60 PRINT 
70 INPUT 
80 INPUT 
90 PRINT 
100 FOR T 
110 C=RND 
120 CLS 
130 PRINT 
140 IF C 
150 IF C 



"FAMILY DECISION MAKER" 
= 1 TO 1500: NEXT T 

"TYPE IN THE OPTIONS" 
"AND THE COMPUTER WILL DECIDE" 
"WHAT IS OPTION #1"",01* 
"WHAT IS OPTION #2"s02* 

"I'M THINKING IT OVER " 

= 1 TO 3000 s NEXT T 
(2) 

"MY CHOICE ISs" 
= 1 THEN PRINT 01$ 
= 2 THEN PRINT 02* 



In this program the computer makes its choice in line 110. 
Lines 90 and 100 are where the computer is, "thinking it 
over". You probably noticed that the computer isn't really 
''thinking it over". It's actually counting up to 3000, then 
executing line 110. The choice is printed on the screen in 
lines 130-150. 

The VARIABLES ares 
T=time delay 
C=choice , 

01*=option #1 
02*=option #2 
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Bonus Program #3 REACTION TIMER 

Here is a program to test your reaction time. When the 
computer says "60!", you must press the BREAK key as quickly 
as you can. Compare your score with the chart in the 
program. Good luck! 



10 CLS 

20 PRINT "TEST YOUR REACTION TIME" 

30 PRINT "ABA INST THE COMPUTER." 

40 PRINT "WHEN THE COMPUTER SAYS 'GO!'" 

50 PRINT "PRESS THE BREAK KEY" 

60 PRINT "YOUR SCORE IS THE HIGHEST NUMBER YOU SEE" 

70 PRINTS PRINT "01-10=LIGHTNIN ' 10-20=QUICK! " 

80 PRINT "20-30=AVERAGE 30-50=NAPPIN6" 

90 PRINTsPRINTsPRINT "PRESS ENTER" 

100 PRINT "WHEN YOU ARE READY" 

110 INPUT A* 

120 CLS: PRINT "ON YOUR MARK" 

130 FOR T = 1 TO 1000sNEXt TsPRINT "GET SET!" 

140 FOR T = 1 TO RND (5000)! NEXT T 

150 CLS: PRINT "GO! •• 

160 FOR T » 1 TO 50: PRINT T:NEXT T 

170 PRINT "SOMEONE WAKE THIS PERSON UP!" 

The VARIABLE, o-f the FOR/NEXT statement in line 140, equals 
a RANDOM INTEGER between one and -five thousand. This causes 
the time delay to be different each time the program is RUN. 
When you press the BREAK key the computer will say, "Break 
in 160". This is normal -for the program. Your score is the 
highest number you see. Type RUN and press ENTER to play 
again. 
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Bonus Program #4 M.P.G. RECORDER 

I-f you're like me, you never take the trouble to -figure 
out your car's miles per gallon (li.P.G.). Even having a . 
calculator handy has never helped, though there are only 
three basic numbers to calculate. This is one more instance 
in which wanting to use my computer motivates me to do the 
•fairly simple task I 've managed to ignore. My mechanic 
tells me that I should check my M.P.6. after every five 
fill-ups. That way, if my M.P.6. starts dropping, I can 
take my car in for a checkup. .. before it's too late. 
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CLS 
PRINT 
FOR T 
CLS 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 



"MPe CALCULATOR" 
= 1 TO 1500! NEXT T 

"THIS IS A PROGRAM TO FIGURE OUT" 
"THE MILES PER GALLON YOUR CAR GETS" 
"HOW MANY MILES HAVE YOU DRIVEN" 
"DURING THE PAST FIVE FILL-UPS" 
M 
"HOW MANY GALLONS OF GAS DID YOU USE- 



PRINT "IN THE PAST FIVE FILL-UPS" 

INPUT G 

MPG=M/G 

PRINT "YOU HAVE BEEN GETTING "MPG 

PRINT "MILES PER GALLON" 



Notice that we used G as the VARIABLE for gas, M as the 
VARIABLE for miles, and MPG as the VARIABLE for miles per 
gallon. In line 130, MPG=M/Q means miles per gallon equals 
miles divided by gallons. 
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Bonus Program #5 COUPON CALCULATOR 

Computers are pretty good at .solving problems and 
presenting the results in a manner which is easy to read. 
This program can be used to display the amount of money you 
will save with your shopping coupons. 



10 CLS 

20 PRINT "COUPON CALCULATOR" 

30 PR I NT: PR I NT "TO FIND OUT HOW MUCH YOU'LL SAVE" 

40 PRINT "WITH YOUR SHOPPING COUPONS" 

50 PRINT "ANSWER THE FOLLOWING QUESTIONS" 

60 PRINT "THEN PRESS THE ENTER KEY" 

70 PRINT: PRINT "HOW MANY COUPONS DO YOU HAVE" 

80 INPUT C ' 

90 PRINT: PRINT "ENTER THE AMOUNT OF A COUPON" 

100 PRINT "DON'T USE A DOLLAR SIGN" 

110 PRINT "DO USE A DECIMAL POINT": PRINT 

120 FOR E = 1 TO C: PRINT "ENTER VALUE OF COUPON #"E 

130 INPUT A 

140 T=T+A 

150 NEXT E 

160 PRINT: PRINT "*"T"WILL BE SAVED" 

The VARIABLES in this program are: 

C=number of coupons 

E=coupon# 

A=value of coupons 

T=total value of coupons 

Line 140 adds up the total, each time a value is entered 
into the computer. Line 160 prints the total value to be 
saved. 
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Bonus Program #6 SPORTS FOREGASTER 

The SPORTS FOREGASTER can be a handy program if you enjoy 
sports. This program will take a team's current record and 
project, based on winning percentage, what the team's record 
will be at the end o-f the season. 



10 CLS 

20 PRINT "SPORTS FOREGASTER" 

30 FOR Z « 1 TO 1500SNEXT ZsPRINT 

40 PRINT "THIS PROGRAM WILL FOREGAST A TEAM'S" 

50 PRINT "FINAL WIN AND LOSS REGORD" 

60 PRINT "BASED ON ITS CURRENT REGORD" 

70 PR I NT: PR I NT "ANSWER EAGH QUESTION" 

80 PRINT "THEN PRESS ENTER" 

90 PR I NT: PR I NT "HOW MANY GAMES DOES THE TEAM PLAY" 

100 INPUT T 

110 PRINT: PRINT "HOW MANY WINS DO THEY HAVE NOW" 

120 INPUT W 

130 PRINT "HOW MANY LOSSES DO THEY HAVE NOW" 

140 INPUT L 

150 P=W/(W+L):Y=T*P:D=T-Y 

160 PRINT: PRINT "END OF THE SEASON PROJEGTION: " 

170 PRINT: PRINT "WINS="INT <Y) "LOSSES^" INT (D)+l 

The VARIABLES are: 

Z=time delay variable 

T=total games in season 

W=games won 

L-games lost 

P=percentage o-f games won 

Y=end o-f year games projected won 

D=end of year games projected lost 

The forecast is completed in line 150 when the winning 
percentage (P) is established by dividing the number of 
completed games <W-+-L) into the total games won so far (W) . 
The total wins for the year is estimated by multiplying the 
amount of games in the season (T) by the winning . percentage 
(P) . The year end losses are determined by subtracting the 
end of year projected games won CY) from the total games in 
the season (T) . 
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Bonus Program #7 SHOWER MONITOR 



Getting into the shower, day after day, and finding cold 
water can be a drag. I'm sure that large families know what 
I'm talking about. Bonus Program #7 has been designed to 
whip, morning bathroom confusion. It's called the SHOWER 
MONITOR. You type in the names and the computer picks the 
shower order. 



10 CLS 

20 PRINT "SHOWER MON I TOR- 
SO FOR T= 1 TO 2000: NEXT T:CLS 
40 PRINT "THIS PROGRAM IS DESIGNED TO HELP" 
50 PRINT "FAMILIES DECIDE, IN A FAIR WAY" 
60 PRINT "THE ORDER IN WHICH THE SHOWER IS USED" 
70 PRINT "IIM THE MORNING." 

80 PR I NT t PR I NT "EACH PERSON'S NAME IS TYPED INTO THE" 
90 PRINT "COMPUTER. THEN THE COMPUTER RANDOMLY" 
100 PRINT "CHOOSES THE ORDER (AS IF OUT OF A HAT)." 
110 PRINT "TYPE EACH ANSWER, THEN PRESS ENTER. " 
120 PRINT: PRINT "HOW MANY PEOPLE IN YOUR FAMILY" 
130 INPUT P 

140 PRINT: PRINT "TYPE IN THE NAMES, ONE AT A TIME. " 
150 PRINT "THEN PRESS ENTER. " 
160 FOR H = 1 TO P 
170 INPUT N*(H) 
180 NEXT H 

190 CLS: PRINT "THIS IS THE SHOWER ORDER TODAY:" 
200 PRINT: FOR R = 1 TO P 
210 X=RND(P) 
220 IF N*(X>=""THEN 210 
230 PRINT N*<X) 
240 N*{X)="" 
250 NEXT R 
260 GOTO 260 

The VARIABLES are: 

P=number of people in family 

H=array parking lot# 

X=random number 

N*<X>=name of person X in array 

R=counting variable 

You are probably wondering what an ARRAY is. An ARRAY is a 
computer parking lot. In an ARRAY you don't park cars. 
Rather, you park words and numbers. In this program we 
parked the name of each person in an ARRAY location (such as 
N*<l>="Mom",N*(2)="Larry",N*(3)="Rick",etc) . The names are 
loaded into the ARRAY in lines 160-180. The RANDOM shower 
order is determined in lines 200-250. Can you figure out 
why a name isn't picked more than once? 
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Bonus Program #8 NUMBER GAME FOR TWO 

Computers are great -for playing games. They can be 
programmed to make games, both unpredictable and exciting. 
Here is a super game -for two people. The computer "pulls a 
number out o-f its hat", and the players take turns trying to 
guess the number. The player with the most correct guesses, 
after seven rounds, is the champ. Switch sides after seven 
rounds. You will be surprised at the strategies involved. 

10 CLS 

20 PRINT "THIS IS A NUMBER SAME FOR TWO PEOPLE" 

30 PRINT "THE COMPUTER PICKS A NUMBER BETWEEN 1 AND 500." 

40 PRINT "THE PLAYERS TAKE TURNS 6UESSINB THE NUMBER" 

50 PRINT "UNTIL SOMEONE GUESSES THE NUMBER" 

60 PRINT "THE PLAYER GUESSING THE MOST NUMBERS , " 

70 PRINT "AFTER 7 ROUNDS, IS THE WINNER" 

80 PRINT s INPUT "WHAT IS PLAYER #1 'S NAME "5 PI* 

90 PRINT : INPUT "WHAT IS PLAYER #2'S NAME " ; PZ* 

100 R=R+1:N = RND<500) 

110 IF R>1 THEN PRINT"THE SCORE IS "P1*"="P1" "P2*"»"P2 

120 FOR T « 1 TO 2500: NEXT T 

130 IF R > 7 THEN 260 

140 FOR T * 1 TO 1000: NEXT T 

150 CLS : PRINT "ROUND "R", "P1*"'S TURN" 

160 PRINT : INPUT "WHAT IS YOUR GUESS ";Q1 

170 IF 61 < N THEN PRINT "TOO LOW, "PI*: GOTO 200 

180 IF Gl > N THEN PRINT "TOO HIGH"sGO TO 200 

190 PRINT "YOU GOT IT "Pl*sPl = PI + 1 : GOTO 100 

200 FOR T = 1 TO 1000: NEXT T 

210 CLS: PRINT "ROUND "R" , "P2*" 'S TURN" 

220 PRINT: INPUT "WHAT IS YOUR GUESS " 5 G2 

230 IF 62 < N THEN PRINT "TOO LOW": GOTO 140 

240 IF 62 > N THEN PRINT "TOO HIGH": GOTO 140 

250 PRINT "YOU GOT IT "P2*:P2 = P2 +1:60T0 100 

260 CLS: FOR T = 1 TO 1000: NEXT T 

270 IF PI > P2 THEN PRINT PI*" CREAMED "P2*" "PI" TO "PW:END 

280 PRINT P2*" WASTED "PI*" "P2" TO "PI 

The VARIABLES are: 
Pl*=player #1 
P2*=p layer #2 
Pl=player #1 score 
P2=player #2 score 
61=player #1 guess 
G2=player #2 guess 
R=round# 

T=time delay variable 
N=secret number 

The secret number (N) is picked in line 100. To alter the 
limits o-f the secret number, you can change the 500 to a 
larger or smaller number. Try 10000,' -for instance. In 
Several places you may notice symbols like this: > or 
this: < . The symbol > means "greater than" and 
means "less than". Can you make this game work with four 
players? 
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Bonus Program #9 PRACTICAL JOf^ER 

Are you ready -for some laughs? I-f so, Bonus Program #9 
is the one -for you. It's called the PRACTICAL JOKE PROSRAM. 
Here's how it workss 

You type the program into your computer while the victim 
isn't around. RUN the program. The computer will ask you 
questions about the victim. You answer all the questions 
until the computer says, "PRESS ANY KEY TO START THE JOKE". 
Press a key and the joke is ready -for the victim. When the 
victim comes back, the computer will seem to know all about 
him/her. Just say that you're hooked up to the MASTER 
COMPUTER, and it knows EVERYTHING!!! 

10 CLS 

20 PRINT "PRACTICAL JOKE PROGRAM" 

30 FOR T=l TO 1000: NEXT T 

40 CLS 

50 INPUT "WHAT IS THE VICTIM'S NAME";N* 

60 INPUT "IS THE VICTIM MALE OR FEMALE" ;MF* 

70 IF MF«:= "MALE" OR MF*= "M" THEN 6*= "HE":P*=r "HIS" 

80 IF MF*= "FEMALE" OR MF*= "F" THEN G*= "SHE":P*= "HER" 

90 PRINT "WHAT CITY IS "G*" FROM?": INPUT C* 

100 PRINT "HOW OLD IS "G*" NOW?"; INPUT A 

110 PRINT "WHAT IS "P*" FAVORITE HOBBY": INPUT H* 

120 PRINT "WHAT IS "P*" N IjCKNAME " : I NPUT NN* 

130 PRINT "PRESS ANY KEY TO START THE JOKE." 

140 S*=INKEY*:IF S*=""THEN 140 

150 CLS 

160 PRINT "PRESS A KEY AND I WILL TALK TO YOU" 

170 S*=INKEY*:IF S*=""THEN 170 

180 PRINT "HELLO, LET ME TRY TO GUESS YOUR NAME." 

190 PRINT "I'M THINKING..." 

200 GOSUB 400 

210 PRINT "YOU LOOK LIKE SOME TYPE OF "N*:GOSUB400 

220 PRINT "BUT I HOPE YOU WON'T MIND IF I CALL YOU" 

230 PRINT NN*:GOSUB400 

240 PRINT "THE TOUCH OF YOUR FINGERS" : PRINT 

250 PRINT "LEADS ME TO BELIEVE YOU ARE AT LEAST": PR I NT 

260 PRINT A" YEARS OLD" :GOSUB400 

270 PRINT "AND YOU SMELL LIKE A PERSON FROM": PRINT 

280 PRINT C*:GOSUB400 

290 PRINT "THE CENTRAL COMPUTER TELLS ME YOU LIKE:": PR I NT 

300 PRINT H*:GOSUB400 

310 PRINT "NOW, IT'S YOUR TURN TO ASK ME A QUESTION" 

320 INPUT "TYPE YOUR QUESTION, THEN Pf^ESS ENTER" ;Q* 

330 GOSUB40O 

340 PRINT "SORRY, "NN*" THAT'S TOO PERSONAL!" 

350 PRINT "YOUR ACCESS TO THE MASTER COMPUTER HAS" 

360 PRINT "BEEN TERMINATED UNTIL 1999": END 

400 FOR T = 1 TO 4000: NEXTT: CLS: RETURN « 



continued on next page. 
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In the PRACTICAL JOKE program you are introduced to some 
new commands. Two are called 60SUB and RETURN (not the key). 
60SUB 400 means, "goto the subroutine at 400". A SUBROUTINE 
is like a program, within a program.. RETURN means "return 
to the main program". A SUBROUTINE always starts with 60SUB 
and ends with RETURN- This SUBROUTINE, line 400, causes a 
time delay andclears the screen. In lines 140 and 170 is 
another, new command, called INKEY. INKEY* tells the 
computer to wait -for a key to be pressed. In lihe 140, i-f 
no key is pressed, the computer waits at line 140. When a 
key is pressed, the program proceeds on to line 150. 

VARIABLES are: 
.T«time delay 
N*«victim's name 
MF$«male or -female 
S*-he or she 
C*«city 
A=age 
H*«hdbby 
NN*=nickname 
P*=his or her 
Q*«question 
St— in key* 
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Bonus Program #10 MATH SHARPENER 

This program is called MATH SHARPENER, 
this program -for the whis kids. You must be «..= , 
wouldn't be reading this. The MATH iBHARPENER has been 
designed to quiz both the beginner and the advanced on basic 
math skills. Don't use a scratch pad and I assure you, 
you'll get a work out. You will receive instructions when 
you RUN the program. 



I 've been saving 
one . or you 
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DEASY 2) HARD, THEN ENTER" 



ARE: " 
- SUBTRACT" 
/ DIVIDE"5PRINT 

8-4=4" 
9/3=3": PRINT 



NUMBER OF THE 
TO PRACTICE:"; 



FUNCTION' 
PRINT 



REM***MATH SHARPENER*** 

8=0: CLS 

PR I NT "THIS IS A PR06RAM TO SHARPEN YOUR MATH" 

PRINT 

PRINT "P'iCKtt: 

INPUT L 

PR I NT "THE SYMBOLS 

PRINT"+ ADD 

PRINT"* MULTIPLY 

PR I NT "EXAMPLES: " 

PR I NT "2+3=5 

PR I NT "2*4=8 

PR I NT "PICK THE 

PR I NT "YOU WANT 

PRINT" 1) ADD" 

PRINT "2) SUBTRACT" 

PRINT"3) MULTIPLY" 

PRINT"4)DI'v'IDE" 

INPUT D 

CLS: PR I NT "TYPE THE NUMBER OF QUESTIONS" 

INPUT "YOU WANT, THEN PRESS ENTER" :Q 

FOR T=l TO Q 

PR I NT "ANSWER THE PROBLEM, THEN PRESS ENTER": PRINT 

IF L=l THEN A=RND(10) :B=RND{10) 

IF L=2 THEN A=RND (200) : B=RND (200) 

IF D=2 AND A<B THEN 240 

IF D=4 AND A=0 OR B=0 THEN 240 

IF D=4 AND A<B THEN 240 

IF D=4 AND A/B <> INT(A/B)THEN240 

IF A=B OR B=l THEN 240 

IF D=l THEN PRINT A"+"B"=" ; : INPUTC 

IF D=2 THEN PRINT A"-"B" = "ii : INPUTC 

IF D=3 AND L=l THEN PRINT A"*"B"=" 5 : INPUT C 

IF D=3 AND L=2 THEN PRINT INT (A/5) ''*" INT (B/5) " = " ! s 

IF D=4 THEN PRINT A"/"B"=" ;: INPUTC 



INPUTC 



continued on next page... 
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360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 



IF D=l AND C=A+B THEN S=S+1:PRINT "ALRIGHT !": 6OTO490 

IF D=2 AND C=A-B THEN S=S+1: PRINT "RIGHT ON ! " : GOTO490 

IF D=3 AND L=l AND C=A*B THEN S=S+1:Z=1 

IF Z=l THEN PRINT "CORRECT !": Z=0: GOTO490 

IF D=3 AND L=2 AND C=INT (A/5) *INT <B/5) THEN S=S+1:Z=2 

IF Z=2 THEN PRINT "GREAT !": Z=0: 6OTO490 

IF D=4 AND C=A/B THEN S=S+1 : PRINT" YOWSAH !": GOTO490 

PRINT" YOU GOOFED . THE ANSWER W AS : " ; 

IF D=l THEN PRINT A+B 

THEN PRINT A-B 

AND L=l THEN PRINT A*B 

AND L=2 THEN PRINT INT (A/5) *INT <B/5) 

THEN PRINT A/B 



D=2 
D=3 
D=3 
D=4 



IF 

IF 

IF 

IF 

FOR W=1TO800!NEXT W:CLS:NEXT T 

PRINT"YDUR SCORE IS: "S" OUT OF "Q" RIGHT! 

PR I NT "PRESS ANY KEY TO CONTINUE" 

A*=INKEY*:IF A*=""THEN 520 

GOTO 10 



The VARIABLES are: 

L=easy/hard 

D=-function to practice 

Q=# of questions 

T=question loop 

A=random number 1 

B=random number 2 

C=choice (your answer) 

W=delay 

S=score 

A$=get variable 

Z=correct multiplication -flsig 

If you have problems getting this program to work- properly, 
double check lines 240-500. These are the lines where most 
of the mathematical processing takes place. In this 
section, if D«=l , then you are adding; if 0=2^ you are 
subtracting; D=3, meanfe multiplying; and D=4 signifies 
division. If L=l, then the quizzes are easy. If L=2, then 
the quizzes are hard. Should you have the desire to make 
the program more difficult, you can increase the RANDOM 
NUMBERS, in lines 240-250. 
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